Диапозон A5:D7 содержит 12 ячеек.
Смотри во вложении.
Думаю, что верные ответы под B, F, G
1 флейта
2 <span>рикша
3 </span><span>Тургенев
4 </span><span>Нью-Йорк
5 </span><span>офис
6 </span><span>Нил
7 </span><span>Руслан
8 </span><span>торф
9 </span><span>кофе</span>
Var n : int64;
Function isPali(A : int64) : Boolean;
Var B : int64;
Begin
B:=1;
While B<A do B:=B*10;
B:=B div 10;
If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True;
end;
Begin
Readln(n);
If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.');
Write('Его квадрат ',sqr(n));
If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.');
end.
Хотя в Pabc.net есть функция и покороче:
Function IsPali(B : Longint) : Boolean;
Begin
IsPali:=(B=IntRevers(B));
end;
