Question

Напишите программу, которая выводит все простые числа в диапазоне от 2 до n ( n заранее неизвестно). входные данные входная строка содержит целое число n . выходные данные программа должна вывести все простые числа в диапазоне от 2 до n в одну строку, разделив их пробелами. примеры входные данные 20 выходные данные 2 3 5 7 11 13 17 19

Answer 1

Var
A,N,d:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 2 to N do
    Begin
    d:=0;
    A:=2;
    Repeat
    if N mod A = 0 then d:=d+1;
    A:=A+1
    Until A>Sqrt(N)+1;
    if d = 0 then Write(N,' ')
    End
End.