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

Question

Информатика

Леонтьюшка

3 июня, 01:38

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

+1

Ответы (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.