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

  • Определить, делителем каких чисел a,b,c является число К

Ответы 1

  • var

      a, b, c, k : integer;

    begin

      read (a, b, c, k);

      if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln ('Никаких')

      else begin

        if a mod k = 0 then writeln ('Числа a');

        if b mod k = 0 then writeln ('Числа b');

        if c mod k = 0 then writeln ('Числа c');

      end;

    end.

    • Автор:

      virginia
    • 5 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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