дана последовательность

Ответ от Алексей Крюков[гуру]
Введу бесплатно =)

Ответ от Maxim Poletaev[новичек]
Program P1;
uses crt;
const ot=1;d0=100;
var x:array[1..100] of integer;
i,j:integer;
Begin
clrscr;
for i:=ot to d0 do
x:=0;
for i:=ot to d0 do
if i=1 then x[ i ]:=1 else
for j:=2 to i do begin
if j<>i then
if (i mod j=0) then x[ i ]:=1;end;
for i:=ot to d0 do
if x=0 then write(i,' ');
readln;
end.
Эта программа выводит простые числа из диапазона ot<=...=

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]