Программа на паскале для подсчета: var i,k:integer; begin k:=0; for i:=100 to 999 do if (i mod 2 <> 0)and(i mod 3 <> 0)and(i mod 5 <> 0) then k:=k+1; writeln('k = ',k); end.
//Pascal ABC.NET 3.1 сборка 1256 {range(a,b)-множество чисел от а до b; where(x -> [условие]) - проверяет каждый элемент множества, в данном случае каждое число от 100 до 999, на соответствие условию. Если условие выполняется, значение переходит в новое множество. В данном случае, условие проверяет, не делится ли число на 2 И 3 И 5. То есть результат остаток от целочислительного деления(mod) не должен равняться 0 в каждом из случаев. .Count() возвращает количество элементов в множестве}
begin writeln(range(100,999).Where(x -> (x mod 2<>0) and (x mod 3<>0) and (x mod 5<>0)).Сount); end.
Answers & Comments
Verified answer
Программа на паскале для подсчета:var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
if (i mod 2 <> 0)and(i mod 3 <> 0)and(i mod 5 <> 0) then k:=k+1;
writeln('k = ',k);
end.
Результат:
k = 240
Verified answer
//Pascal ABC.NET 3.1 сборка 1256{range(a,b)-множество чисел от а до b; where(x -> [условие]) - проверяет каждый элемент множества, в данном случае каждое число от 100 до 999, на соответствие условию. Если условие выполняется, значение переходит в новое множество. В данном случае, условие проверяет, не делится ли число на 2 И 3 И 5. То есть результат остаток от целочислительного деления(mod) не должен равняться 0 в каждом из случаев. .Count() возвращает количество элементов в множестве}
begin
writeln(range(100,999).Where(x -> (x mod 2<>0) and (x mod 3<>0) and (x mod 5<>0)).Сount);
end.
Результат:
240