Все простые числа да заданного М числа (включительно)

Question

Информатика

Тарасия

28 февраля, 02:49

Все простые числа да заданного М числа (включительно)

+2

Ответы (1)

Знаете ответ на вопрос?

Тура · Answer 1

Program Test;

Var

N, n1, tst, i, count:integer;

Begin

readln (N) ;

while n1
n1:=n1+1;

count:=0;

for i:=1 to n1 do begin

if n1 mod i = 0 then inc (count) ;

end;

if n1>1 then if count=2 then writeln (n1) ;

end;

End.