Упр.202 ГДЗ Рабочая тетрадь Босова 8 класс (Информатика)

Ниже вариант решения задания из учебника Босова 8 класс, Бином:

202. Проанализируйте фрагменты программ. Запишите результат их работы. Для каждого случая запишите фрагмент программы, обеспечивающий такой же результат, но с использованием другого оператора цикла.

while

for

for x: =1 to 5 do

writeln (x);

Результат работы: вывод чисел от 1 до 5 с разницей +1

x :=-2;

while x

begin

y: =abs(x);

writeln (y);

x:=x+1

end.

Результат работы: вывод модуля х

for x:=10 downto 5 do

writeln (x);

Результат работы: вывод чисел от 10 до 5 с разницей -1

x:=5;

while x

begin

y:=x*x;

writeln (y);

x:=x-1

end;

Результат работы: квадраты чисел от 5 до 0 с разницей -1