• составьте программу,выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3,но не делятся на 4

Ответы 6

  • такой вопрос, циклы проходили?
  • да
    • Автор:

      plutocase
    • 5 лет назад
    • 0
  • вот тогда var i:integer;beginfor i:=1 to 30 do beginif(i mod 2 =0)and(i mod 3 =0)and (i mod 4 <>0)then writeln(i);end;end.
    • Автор:

      phoenix
    • 5 лет назад
    • 0
  • спасибо
  • пожалуйста
  • var i:integer;a:array[1..30] of integer;beginfor i:=1 to 30 do beginreadln(a[i]);if(a[i]mod 2 =0)and(a[i]mod 3 =0)and (a[i]mod 4 <>0)then writeln(a[i]);end;end.
    • Автор:

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

Войти через Google

или

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

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

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