Turbo pascal var i,n: integer; begin writeln('vvedite n'); readln(n); for i: =1 to n do if (i mod 2< > 0)and(i mod 3< > 0)and(i mod 5< > 0)then writeln(i); readln end. данная программа выдает все числа, от 1 до заданного (n), которые не делятся без остатка на 2,3,5. что нужно исправить, чтобы программа выдавала только количество этих чисел. заранее .
if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0)then
inc(kol);
writeln(kol);