Дано целое число n. вывести все целые числа от 1 до n в обратном порядке pascal

0 голосов
101 просмотров

Дано целое число n. вывести все целые числа от 1 до n в обратном порядке pascal


Информатика | 101 просмотров
Дан 1 ответ
0 голосов

Var

  n, i: integer;


begin

  readln(n);

  for i := n downto 1 do

    write(i, ' '); 

end.

0

пойдёт?

0

да