Выполните задание. На бесконечном поле имеется прямоугольник, - вопрос №10689719 от EEEboyyyyy 30.06.2021 04:56

Question

Информатика: Выполните задание. На бесконечном поле имеется прямоугольник, ограниченный стенами. Длины сторон прямоугольника неизвестны. Робот находится внутри прямоугольника. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «Р»). Напишите для Робота алгоритм, закрашивающий верхние угловые клетки. Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведённого выше рисунка Робот должен закрасить следующие клетки (см. рисунок). Конечное расположение

EEEboyyyyy · Answer

Var n,m,osn: integer;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....