• Составьте программу в паскале, которая находит наименьшее из чисел кратное 3.Количество чисел не меньше 1000.

Ответы 1

  • const

      inf = 32767;

    var

      a, min : integer;

    begin

      min := inf;

      while not eoln do

      begin

        read (a);

        if (a < min) and (a mod 3 = 0) then min := a;

      end;

      if min < inf then writeln (min)

      else writeln ('Нет чисел, кратных 3-ем');

    end.

     

    • Автор:

      park
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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