С клавиатуры вводятся 5 целых чисел

Question

С клавиатуры вводятся 5 целых чисел. Вывести на экран только однозначные числа. Без массива решите пожалуйста

Answer 1

48

justagoodone

06 сентября 2022

Без массива. Вот с рекурсией 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: