Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (Число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).
Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (Число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы