В исполнителях есть система команд ЧЕРТЕЖНИК. (См. рисунок) в нем есть команда ВЕКТОР. Компьютер рисует вектор по правилам математики. Ваша задача используя эту команду, составить ОСМЫСЛЕННЫЙ рисунок из не менее 30 команд. Для Чертежника есть система шаблонов, что бы не печатать команды. Для удобства рисуем картинку на клетчатой бумаге, как и для предыдущего рисунка.
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.