• определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7

    в паскале авс

    ПОМОГИТЕЕЕЕЕ!!!

Ответы 1

  • Program zadanie1;

    var

    i:integer;

    begin

    for i:=100 to 999 do Begin if ( i mod 3 = 0 ) and ( i mod 5 = 0 ) and ( i mod 7 = 0 ) then writeln(i); end;

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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