Является ли введенное пользователем натуральное число простым

@Настасья · Регистрация: 26.11.2008

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

Напишите программу,определяющую,является ли введенное пользователем натуральное число простым. В своей работе программа должна использовать функцию, проверяющую,является ли натуральное число простым!

@lexus_ilia · 23.12.2008, 13:49

Лови...

Код

function pros(x: integer):boolean;
var
 i,b:integer;
begin
 pros:=false;
 i:=2;
 b:=round(sqrt(x));
 while i<=b do
 begin
  if x mod i = 0 then
   exit;
  inc(i)
 end;
 pros:=true;
end;

@Настасья 0 / 0 / 0 Регистрация: 26.11.2008 Сообщений: 3
		1
	Является ли введенное пользователем натуральное число простым 23.12.2008, 10:57. Показов 2240. Ответов 1 Метки нет (Все метки) Напишите программу,определяющую,является ли введенное пользователем натуральное число простым. В своей работе программа должна использовать функцию, проверяющую,является ли натуральное число простым! 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	23.12.2008, 13:49	2
	Лови... Код function pros(x: integer):boolean; var i,b:integer; begin pros:=false; i:=2; b:=round(sqrt(x)); while i<=b do begin if x mod i = 0 then exit; inc(i) end; pros:=true; end; 0