Составьте программу в паскале…

Question

Составьте программу в паскале, которая находит наименьшее из чисел кратное 3. Количество чисел не меньше 1000.

Answer 1

33

egorichjan

16 марта 2023

const inf=32767; var a, min: integer; begin min: =inf; while not eoln do begin read (a); if (a < min) and (a mod 3=0) then min: =a; end; if min < inf then writeln (min) else writeln ('Нет чисел, кратных 3-ем'); end.

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

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

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

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

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