Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то…

Question

72

Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то ответом будет 1. Языкпаскаль

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

xaver · Accepted Answer

35

xaver

09 августа 2022

var min,num: int64; begin writeln ('Vvedite chislo'); readln (num); min: =num mod 10; while (num>0) do begin if (min> (num mod 10) then min: =num mod 10; num: =num div 10; end; writeln (min); readln; end.

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

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

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

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