Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (Число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).

Question

Информатика

Дина

16 июля, 11:07

Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (Число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).

+5

Ответы (1)

Знаете ответ на вопрос?

Ионич · Answer 1

var a, i:integer;

procedure del (i:integer; var a:integer) ;

var j : integer;

begin

a:=0;

for j:=1 to i do

if i mod j = 0 then inc (a)

end;

begin

writeln;

for i:=2 to 1000 do

begin

del (i, a) ;

if a=2 then write (i, ' ') ;

end;

end.