найти минимальную цифру в трехзначном числе
Ответы на вопрос
Ответил mrFrozzy
0
100-минимальная трехзначное
Ответил varanchik
0
Паскаль:
var a, b, min :integer;
begin
readln(a);
min:=10;
while a <> 0 do
begin
b:= a mod 10;
if b < min then min:=b;
a:= a div 10
end;
writeln(min);
readln
end.
var a, b, min :integer;
begin
readln(a);
min:=10;
while a <> 0 do
begin
b:= a mod 10;
if b < min then min:=b;
a:= a div 10
end;
writeln(min);
readln
end.
Новые вопросы