Задание:
Пожалуйста, помогите. Создайте программу формирующую 15 чисел в диапазоне от 15 до 56. Числа вводятся пользователем. Затем вводятся на экран, ссообщением вошло ли введенное число в укузанный диапозон.
Решение:
var i,k: integer; beginfor k: =1 to 15 do beginreadln (i); if (i <= 56) and (i>=15) then writeln ('Vhodit v diapazon') else writeln ('ne vhodit'); end; end.
Знаете другой ответ?