Задание 7 класс PascalABC . Нужно закрасить 3 первых и последних квадратика
Для решения данной задачи можно использовать циклы и условные операторы в языке PascalABC.
Пример решения:
program Task7;
var
i: integer;
begin
// Закрашиваем первые 3 квадратика
for i := 1 to 3 do
begin
writeln('Закрашен квадратик номер ', i);
end;
// Закрашиваем последние 3 квадратика
for i := 8 to 10 do
begin
writeln('Закрашен квадратик номер ', i);
end;
end.
В данном примере мы используем два цикла for
. Первый цикл от 1 до 3 закрашивает первые 3 квадратика, а второй цикл от 8 до 10 закрашивает последние 3 квадратика. Вместо writeln
можно использовать другие команды для закрашивания квадратиков, в зависимости от требований задачи.