Дано натуральное число. найти минимальную цифру.

полина20042012 полина20042012    3   02.03.2019 02:00    5

Ответы
KoKaina KoKaina  23.05.2020 19:34

program ;
uses crt;
var a,b,c,i:integer;
begin
clrscr;
c:=10;
readln(a);
while a <> 0 do
begin
b:= a mod 10;
if b < c then c:=b;
a:= a div 10;
end;
writeln(c);
readkey;
end.

ПОКАЗАТЬ ОТВЕТЫ
konfetabox konfetabox  23.05.2020 19:34

 

program xxx;
  var a, b, min :integer;
begin
  write('введите число а='); 

  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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика