отыскать наименьшую цифру в трехзначном числе

Отыскать минимальную цифру в трехзначном числе

Задать свой вопрос
Ванек
pascal?
2 ответа
Паскаль:
  var a, b, min :integer;
begin
  readln(a);
  min:=10;
  while a lt;gt; 0 do
    begin
       b:= a mod 10;
       if b lt; min then min:=b;
       a:= a div 10
    end;
  writeln(min);
  readln
end.

100-малая трехзначное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт