Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких последних цифр, тоже является простым. Например, число 733 - - гиперпростое, так как и оно само, и числа 73 и 7 - - простые. Напишите программу, которая определяет, верно ли, что переданное ей число N - гиперпростое. Используйте функции. Учтите, что число 1 не считается простым. Входные данные Входная строка содержит натуральное число N. Выходные данные Программа должна вывести слово 'YES', если переданное её число - гиперпростое, и слово 'NO', если это число не гиперпростое.

Question

Павел Крюков

Информатика

27 июля, 14:07

Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких последних цифр, тоже является простым. Например, число 733 - - гиперпростое, так как и оно само, и числа 73 и 7 - - простые. Напишите программу, которая определяет, верно ли, что переданное ей число N - гиперпростое. Используйте функции. Учтите, что число 1 не считается простым. Входные данные Входная строка содержит натуральное число N. Выходные данные Программа должна вывести слово 'YES', если переданное её число - гиперпростое, и слово 'NO', если это число не гиперпростое.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Даниил Фирсов · Answer 1

var n:longint; function prostoe (n:longint) : boolean; var i:longint; begin prostoe:=True; for i:=2 to Trunc (Sqrt (n)) do if (n mod i) = 0 then begin prostoe:=False; Break end end; function hyperprostoe (n:longint) : boolean; var yes:boolean; begin yes:=true; if prostoe (n) then begin while n>0 do begin n:=n div 10; / / writeln (n); {отладка} if not prostoe (n) then begin yes:=false; break; end; end; end else yes:=false; hyperprostoe:=yes; end; begin write ('Введите число: '); readln (n); writeln (prostoe (n)); writeln (hyperprostoe (n)); readln; end.