Ввести натуральное число N и вывести в строчку все числа от N до 1.
Ввести натуральное число N и вывести в строчку все числа от N до 1.
Гость
Ответ(ы) на вопрос:
Гостьvar
n : integer;
begin
read (n);
while n > 0 do
begin
write (n, ' ');
n := n - 1;
end;
end.
Не нашли ответ?
Похожие вопросы