Проверьте, является ли число простым.
5-9 класс
|
Вводится одно число n.
function IsPrime(x: integer): boolean;
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.
На каком языке программирования необходимо сделать задачу? Pascal?
Другие вопросы из категории
данное сообщение?
преимущества электронной почты перед обычной (не менее трёх).
Читайте также
может превосходить число сотен). Если не является, то вывести ближайшее следующее число-палиндром.
Задача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя).
Помогите пожалуйста)
Задания в pascal
1)Найти среднее арифметическое n чисел.
2)Является ли число простым.
3)Найти наибольший общий делитель двух чисел.
4)Спортсмен пробежал 10 км за 1 день,каждый следующий день пробегал на 10% больше,
сколько он пробежал за n дней.
5)Найти количество делителей у данного числа.
Решите буду очень признателен.