• Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка на 15 и 17 одновременно

Ответы 1

  • program danya;uses crt;var i,k:integer;beginclrscr;k:=0;for i:=1000 to 9999 do beginif (i mod 15=0) and (i mod 17 =0) then k:=k+1; end;Writeln('Количество чисел= ', k);readln;end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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