Вывести на экран числа от -5 до 5 в прямом и обратном порядке , Pascal ABC)
Ответ
5
program test;
var i:integer;
beginfor i:=-5 to 5 do write(i,' ');
writeln;
for i:=5 downto -5 do write(i,' ');
end.
var i:integer;
beginfor i:=-5 to 5 do write(i,' ');
writeln;
for i:=5 downto -5 do write(i,' ');
end.