Задание:
Напишите программу, которая, запросив число N, печатала бы числа от 1 до N в обратномпорядке.
Решение:
Program n1; uses crt; var N,i: integer; beginwriteln ('введите число N'); readln (N); for i: =N downto 1 dowriteln (i); end.
Знаете другой ответ?