TURBO Pascalvari,N:integer;beginwriteln(039;Vvedite N039;);readln(N);for i:=1 to n doif (i

TURBO Pascal

var
i,N:integer;
begin
writeln('Vvedite N');
readln(N);
for i:=1 to n do
if (i mod 2lt;gt;0)and(i mod 3lt;gt;0)and(i mod 5lt;gt;0)then writeln(i);
readln
end.

Данная программа выдает все числа, от 1 до данного (n), которые не делятся без остатка на 2,3,5. что необходимо исправить, чтобы программка выдавала только количество этих чисел.
Заблаговременно спасибо.

Булаченков Толя 2019-09-09 14:44:00

Спасибо

Оксана Трубилина 2019-09-09 14:52:00

Вопрос закрыт