Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то ответом будет 1. Язык паскаль
Ответы
Ответ дал:
0
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.
Похожие вопросы
7 лет назад
10 лет назад
10 лет назад
10 лет назад