Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.