3.
алг фигура
нач
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
кон
4.
использовать Чертежник
алг
нач
опустить перо
цел i
нц для i от 1 до 5
фигура
кц
поднять перо
кон
алг фигура
нач
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
кон
5.
использовать Чертежник
алг
нач
опустить перо
забор
робаз
поднять перо
кон
алг робаз
нач
цел i
нц для i от 1 до 5
аругиф
кц
кон
алг аругиф
нач
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
сместиться на вектор(0,2)
кон
алг забор
нач
цел i
нц для i от 1 до 5
фигура
кц
кон
алг фигура
нач
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
кон
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.