Задача 1 Урок 20
Primary tabs
Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).
program u20z1; var n:integer; function fun(n1:integer):integer; begin write(n1,' '); if ((n1)>1) then result:=fun(n1-1); end; begin writeln('vvedite n'); readln(n); fun(n); readln(); end.
- Log in to post comments
- 788 reads
vedro-compota
Sun, 10/10/2021 - 13:04
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)