PascalABC.NET
function IsPrime(n:integer): boolean; // простое?
begin
if n <= 1 then
begin
Result := False;
exit
end;
Result := True;
var (j, r) := (2, Round(Sqrt(n)));
while Result and (j <= r) do
if n mod j = 0 then
begin
Result := False;
exit
end
else
j += 1;
end;
function IsHyperPrime(n: integer): boolean; // гиперпростое?
begin
Result := False;
var k := 10;
while n > 10 do
begin
n := n div 10;
if not IsPrime(n) then exit
end;
Result := True
end;
begin
var (a, b) := ReadInteger2;
var found := False;
foreach var n in Range(a, b) do
if IsPrime(n) then // найдено простоe число
if IsHyperPrime(n) then
begin
found := True;
n.Print
end;
if not found then
Write(0)
end.
4 и 5 это и есть ответы друг на друга
1 условный оператор - оператор,реализирующий выполнение определённых команд при условии, что некоторое логическое выражение (условие) принимает значение «истина» true . В большинстве языков программирования условный оператор начинается с ключевого слова if (в переводе с англ. — «если»)
2)сравнения
3)
if(условие)
{
command
}
elif( )
command();