Question

Помогите, пожалуйста. СМ ФОТО. Можете все расписать поподробнее

Answer 1

Программа на паскале для подсчета:
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

Answer 2

//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