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

Если число одновременно кратно нескольким числам, оно также кратно их НОК. В данном случае НОК = 3*4*5 = 60.

мейби: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.

var i, c : integer;beginfor i := 1 to 1000 doif (i mod (3*4*5) = 0)then c := c + 1;writeln(c);end.

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018Внимание! Если программа не работает, обновите версию!begin  Range(1,1000).Where(t->t mod 60=0).Count.Printlnend.Результат16