Question

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

Answer 1

Ответ:

program z1;

var i:integer;

begin

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

end.