Составить программу вывода на экран простых чисел их первых N натуральных чисел..

@beka91 · Регистрация: 13.12.2009

Author24 — интернет-сервис помощи студентам

@yanyk1n · 05.01.2010, 12:22

Pascal

uses crt;
var i,n:longint;
 
function prime(n:longint):boolean;
var i:integer;
f:boolean;
begin
 f:=true;
 for i:=2 to round(sqrt(n)) do if n mod i=0 then
 begin
  f:=false;
  break;
 end;
 prime:=f;
end;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 for i:=2 to n do if prime(i) then write(i,' ');
 readln;
end.

@beka91 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 50
		1
	Составить программу вывода на экран простых чисел их первых N натуральных чисел.. 05.01.2010, 12:18. Показов 3891. Ответов 1 Метки нет (Все метки) Составить программу вывода на экран простых чисел их первых N натуральных чисел.. 0

	05.01.2010, 12:22

Составить программу вывода на экран простых чисел их первых N натуральных чисел..

Решение