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