ответ 5. решается легко, просто складываем координаты по X и Y, приравниваем нулю, так как исполнитель вернулся в исходную точку.
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.
Var a,q:integer;
begin
readln(a);
for q:=1 to a do
if power(5,q)>a then
begin
write(q);
break;
end;
end.
Первый вопрос б) банкоматы
Второй вопрос в)или д)