Написать программу, которая выводит в столбик все целые числа от -10 до 10. Рядом печатает столбик модулей этих чисел. Пример оформления: -10 10 -11 11 … 10

Вопрос школьника по предмету Информатика

Написать программу, которая выводит в столбик все целые числа от -10 до 10. Рядом печатает столбик модулей этих чисел. Пример оформления: -10 10 -11 11 … 10

Ответ учителя по предмету Информатика

Ответ:

program z1;

var i:integer;

begin

for i:=-10 to 10 do writeln(i:3,’ ‘,abs(i):2)

end.