Задача 1 Урок 21
Primary tabs
Дано целое положительное число N.
Выведите на экран все число от N до 1 (по убыванию).
procedure path(n: integer); begin if n > 0 then begin write(n, ' '); path(n - 1); end; end; begin n := 5; path(n); readln(); end.
КОНСОЛЬ
5 4 3 2 1
- Log in to post comments
- 785 reads
vedro-compota
Sun, 01/09/2022 - 13:15
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)