Задача 1 урок 20
Primary tabs
Задача 1 урок 20
Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию)
var N: integer; function pow(N:integer):integer; begin if(N = 1) then result:=1 else result:=pow(N-1); end; begin writeln('vvedite N>0 (int)'); readln(N); write(pow(N)); readln(); end.
- Log in to post comments
- 1754 reads
vedro-compota
Sun, 09/19/2021 - 12:10
Permalink
как вариант, схематично:
как вариант, схематично:
_____________
матфак вгу и остальная классика =)
boris68
Sun, 09/19/2021 - 21:38
Permalink
"дошло"
vedro-compota
Sun, 09/26/2021 - 12:22
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)