Question

Составить программу в ПАСКАЛЕ: Вывести все ПРОСТЫЕ числа в диапазоне от 1 до N, используя циклические конструкции.

Answer 1

Program n1;
Uses CRT;
VAR n,i,k,j: integer;
begin
clrscr;
writeln('vvedite n');
Readln(n);
Writeln('Prostye chisla');
writeln;
For i:=3 to n do
begin
For j:=2 to i-1 do
If i mod j=0 then k:=k+1;
If k=0 then writeln(i);
k:=0;
end;
readln
end.