Составить программку, которая вычисляет количество чисел кратных 3, 4 и 5

Составить программку, которая вычисляет количество чисел кратных 3, 4 и 5 сразу в спектре от 1 до 1000.

Задать свой вопрос
2 ответа
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  Range(1,1000).Where(t-gt;t mod 60=0).Count.Println
end.

Результат
16
Var i, c : integer;
begin
for i := 1 to 1000 do
if (i mod (3*4*5) = 0)
then c := c + 1;
writeln(c);
end.
Регина Учуварова
мейби:program n_1;var i,c: integer;beginc:=1;for i:=1 to 1000 doif (i mod 3=0) and (i mod 4=0) and (i mod 5=0) thenc:= c + 1;end;writeln (c);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт