Проверка на простоту

@1Rik1 · Регистрация: 09.09.2014

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

Проверьте, является ли число простым.

Вводится одно число n.

Формат выходных данных

Необходимо вывести строку prime, если число простое, или composite, если число составное.
Примеры
Входные данные

5

Выходные данные

prime

Надо через функцию

@Puporev · 21.11.2014, 17:48

Pascal

function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
x:=abs(x);
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;

@1Rik1 0 / 0 / 0 Регистрация: 09.09.2014 Сообщений: 20
		1
	Проверка на простоту 21.11.2014, 17:36. Показов 4065. Ответов 1 Метки нет (Все метки) Проверьте, является ли число простым. Вводится одно число n. Формат выходных данных Необходимо вывести строку prime, если число простое, или composite, если число составное. Примеры Входные данные 5 Выходные данные prime Надо через функцию 0

	21.11.2014, 17:48

Проверка на простоту

Решение