Задача 3 Урок 22
Primary tabs
Задача 3 Урок 22 Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.
var a, b :integer ; function printRecursion(a, b :integer):integer; begin if (b = a) then // если b достигени a result := a // выход из рекупсии else begin result := printRecursion(a, b-1); // рекурсивный вызов пока b не станет = a writeln(b); end; end; begin writeln('Vvedite chislo A'); readln(a); writeln('Vvedite chislo B'); readln(b); writeln(); printRecursion(a, b-1); // в функцию readln(); end.
Вывод консоли:
Vvedite chislo A 1 Vvedite chislo B 10 2 3 4 5 6 7 8 9
- Log in to post comments
- 184 reads