Задание:
С клавиатуры вводятся 5 целых чисел. Вывести на экран только однозначные числа. Без массива решите пожалуйста
Решение:
Без массива. Вот с рекурсией procedure F (k: integer); var n: integer; begin read (n); if k < 5 then F (k+1); if (n < 10) and (n > -10) then write (n, '); end; begin F (1); end.
Знаете другой ответ?