Ответы
Ответ дал:
0
var
n : integer;
begin
read (n);
while n > 0 do
begin
write (n, ' ');
n := n - 1;
end;
end.
n : integer;
begin
read (n);
while n > 0 do
begin
write (n, ' ');
n := n - 1;
end;
end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад