На квадратном острове 4×4 в одной из клеток зарыт клад. на карте сокровищ написано следующее. «выбери - id629624120200927 от Ryuuko 27.09.2020 06:37

Question

Информатика: На квадратном острове 4×4 в одной из клеток зарыт клад. на карте сокровищ написано следующее. «выбери 4 клетки так, чтобы никакие две не лежали ни в одной строке, ни в одном столбце и ни касались друг друга углами. какие-то три из этих клеток тебя к сокровищу, четвёртая – нет. встань на одну из подходящих клеток и выполни одну из следующих инструкций (для каждой подходящей клетки ровно одна из пяти инструкций тебя к кладу). 1. отступи одну клетку вниз (на юг). 2. отступи две клетки вправо (на восток).

Ryuuko · Accepted Answer

Program n1;
function pr(a:longint ):boolean;
var d:longint;
begin
if a<2 then pr:=false
else
begin
pr:=true;
for d:=2 to round(sqrt(a)) do
if a mod d=0 then pr:=false;
end;
end;
function isch(var x: longint ): boolean;
var s: longint;
begin
s:=0;
isch:=false;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x:= x div 10;
end;
if s mod 2=0 then isch:=true;
end;
var k,n,i,c: longint;
y: boolean;
begin
readln(k,n);
if (k>=2) and (n<=100000) then
begin
y:=true;
for i:=k to n do
begin
c:=i;
if (pr(c)) and (isch(c)) then
begin
write(i,' ');
y:=false;
end;
end;
if y then write('0');
end;
end.

MOGZ ответил