Задание 1 Урок 22
Primary tabs
Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию)
var N :integer ; function printRecursion(n :integer):integer; begin if (n = 0) then begin result := 0 end else begin writeln(n); result := printRecursion(n-1); end; end; begin writeln('Vvedite chislo'); readln(N); writeln('--------------'); printRecursion(N); readln(); end.
консоль:
Vvedite chislo 11 -------------- 11 10 9 8 7 6 5 4 3 2 1
- Log in to post comments
- 367 reads