использовать Робот
алг
нач
нц пока справа свободно
выбор
при снизу стена :вправо
иначе закрасить
вниз
закрасить
вверх
вправо
все
кц
закрасить
вниз
закрасить
вниз
вниз
нц пока слева свободно
выбор
при снизу стена :влево
иначе закрасить
вниз
закрасить
вверх
влево
все
кц
закрасить
вниз
закрасить
вниз
вниз
нц пока справа свободно
выбор
при снизу стена :вправо
иначе закрасить
вниз
закрасить
вверх
вправо
все
кц
закрасить
вниз
закрасить
кон
(на закрепе начальная обстановка)
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
1. FF (q=16) или 255 (q=10)
2.134(q=5) или 44(q=10)
3.F0FF(q=16)или 4351(q=10)
Здесь достаточно одного условного оператора:
if X>Y then max:=X else max:=Y;
Можно и проще...
Var X : Integer;
Begin
Readln(X);
While X>=2 do X:=X-2;
If X=0 then Writeln('Чётное') else Writeln('Нечётное');
end.