Придумать задачу для Робота, с такой стартовой обстановкой где Роботу надо будет проходить неизвестное количество клеток без закрашивания и неизвестное количество клеток, которые надо будет закрасить.
Function NOD(a, b: Integer): Integer; Var tmp, r: Integer; Begin If b > a Then Begin tmp := a; a := b; b := tmp; End; tmp := a; While tmp > 0 Do Begin Result := tmp; tmp := tmp - b; End; End;
Пример программы с использованием данной функции:
Program Example; Var a, b: Integer;
Function NOD(a, b: Integer): Integer; Var tmp, r: Integer; Begin If b > a Then Begin tmp := a; a := b; b := tmp; End; tmp := a; While tmp > 0 Do Begin Result := tmp; tmp := tmp - b; End; End;
а) “наличия аттестата о среднем образовании достаточно для поступления в институт”; нет б) “наличие аттестата о среднем образовании необходимо для поступления в институт”; да в) “если целое число делится на 6, то оно делится на 3”; да г) “подобие треугольников является необходимым условием их равенства”; да д) “подобие треугольников является необходимым и достаточным условием их равенства”; нет е) “треугольники подобны только в случае их равенства”; нет ж) “треугольники равны только в случае их подобия”; да з) “равенство треугольников является достаточным условием их подобия”; да и) “для того, чтобы треугольники были неравны, достаточно, чтобы они были неподобны”; да к) “для того, чтобы четырёхугольник был квадратом, достаточно, чтобы его диагонали были равны и перпендикулярны”.нет
uses Robot;
begin
Field("Своё значение", "Своё значение")
И ставить неизвестные значения