Вывести на экран число от 1 до 5в. а) прямом порядке b) обратном порядке

Ответы

Ответ дал: n9she4ka1998
0
1 2 3 4 5
5 4 3 2 1
все!
Ответ дал: Programust
0
1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
end.
Похожие вопросы