Задать вопрос Регистрация
Помочь другим

  • Дано трехзначное число. Вывести порядковый номер его минимальной цифры. паскаль

Ответы 1

  • var

      n, min : integer;

      a : array [1..3] of byte;

    begin

      read (n);

      a[1] := n div 100;

      a[2] := n div 10 mod 10;

      a[3] := n mod 10;

      min := 1;

      if a[2] < a[min] then min := 2;

      if a[3] < a[min] then min := 3;

      writeln (min);

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years