Помогите пожалуйста с задачей по информатике в Паскале Задано натуральное число N. Найти...

Question

Помогите пожалуйста с задачей по информатике в Паскале Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2,3,5

Answer 1

Var n,i,s:integer;

Begin

write('Введите число -> ');

readln(n);

for i:=1 to n do

if (i mod 2 = 1) and (i mod 3 = 1) and (i mod 5 = 1) then s:=s+1;

if s=0 then writeln('Таких чисел не существует') else writeln(s,' чисел');

End.