Question

Составить программу на Паскале поиска и вывода всех простых чисел от 2 до 100.
Проверкой каждого числа из этого интервала на простоту.
При этом НЕ использовать решето Эратосфена.
И НЕ это, но что-то похожее)):
for i:=1 to n do
begin
j:=2;
lim:=round(sqrt(i));
while (i mod j <> 0) and (j <= lim) do inc( j );
if (j > lim) then write( i,' ' );
end;

Answer 1

Как-то так:
VVVVVVVVVVVV

c382ecab468d5fd8798510b48dc34c10.pas

e620ba7eb47f29e404bce7f5e0fd6c76.pas

Answer 2

Var i, j, z:integer;
Begin
For i:=2 to 100 do
Begin
Z:=0;
For j:=2 to i div 2 do
If (i mod j=0) and (i<>2) then begin z:=1;break; end;
If z<>1 then writeln(i);
End;
Readln() ;
End.

Answer 3

??

Answer 4

Программа для turbo pascal

Answer 5

А моя не подходит?)

Answer 6

Подходит)