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. что нужно исправить, чтобы программа выдавала только количество этих чисел. заранее .

Заведи переменную счетчика, например kol if (i mod 2< > 0)and(i mod 3< > 0)and(i mod 5< > 0)then    inc(kol); writeln(kol);

Program project1; {$apptype console} {$r *.res} uses  system.sysutils; var a, b, c, x, y: integer; begin     write('enter a: ');     readln(a);     write('enter b: ');     readln(b);     write('enter c: ');     readln(c);     write('enter x: ');     readln(x);     write('enter y: ');     readln(y);     writeln('a^2+(c+b)^2> =10: ', a*a + (c+b)*(c+b) > =10);     writeln('odd(c*(c+1)): ', (c*(c+1)) mod 2 = 1);     writeln('x xor (not y): ', x xor not y);     writeln('(x and y) or not(x): ', (x and y) or not x);     readln; end.

Var   a: array[1..10] of integer;   b,i,k: integer; begin   randomize;   write('введите количество элементов в массиве: ');   for i: =1 to 10 do   begin       a[i]: =random(21)-10;       write(a[i],' ')       end;   writeln;   write('какое число искать? ');   readln(b);   k: =0;   for i: =1 to 10 do       if a[i]=b then inc(k);   writeln('число встречается ',k,' раз') end.