Паскаль. Вывести на экран все простые числа до k. Число k вводится с клавиатуры. Заранее спасибо.
Паскаль. Вывести на экран все простые числа до k. Число k вводится с клавиатуры. Заранее спасибо.
Гость
Ответ(ы) на вопрос:
Гостьvar
a,flag:array[1..10000]of integer;
i,n,k:integer;
begin
readln(k);
for i:=1 to k do
a[i]:=i;
for i:=2 to k do
if flag[i]=0 then
begin
write(a[i],' ');
for n:=i+1 to k do
if n mod i = 0
then flag[n]:=1;
end;
end.
Не нашли ответ?
Похожие вопросы