Проверьте, является ли число простым.
Вводится одно число n.
Формат
выходных данных
Необходимо вывести строку prime, если
число простое, или composite, если
число составное.
Вводится одно число n.
Формат
выходных данных
Необходимо вывести строку prime, если
число простое, или composite, если
число составное.
More Questions From This User See All
Answers & Comments
var s, n: integer;
begin
Result := x > 1;
s := Trunc(Sqrt(x)) + 1;
n := 1;
while (n < s) and Result do begin
n := n + 1;
Result := Result and (x mod n > 0);
end;
end;
var x, s: integer;
begin
readln(x);
if IsPrime(x) then
writeln('prime')
else
writeln('composite');
end.