• задано натуральное число n найти количество натуральных чисел не превышающих n и не делящихся ни на одно из чисел 2,3,5. Нужно написать программу через цикл for

Ответы 2

  • спасибо, работает
  • var n,I,c:integer;beginc:=0;read(n);for i:=1 to n do if (i mod 2 != 0) and (i mod 3 != 0) and (i mod 5 != 0) then c:=c+1;write(c);end.проверь в компиляторе, я Паскаль плохо помню, не уверен
  • Добавить свой ответ

Войти через Google

или

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

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

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