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. Данная программа выдает ...
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);
Не нашли ответ?
Похожие вопросы