Начало
повтори 4 раза
пока справа стена
повтори шаг вперед
конец цикла
закрась клетку
поверни напрво 90
конец
Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области
Решение:
var x, y: real;
begin readln(x, y);
if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then
write('не ');
writeln('принадлежит');
end.
And (a > c) then Begin max:=a; min1:=b; min2:=c; end else if (b>a) and (b>c) then Begin max:=b; min1:=a; min2:=c end else Begin max:=c; min2:=a; min2:=b; End; if (sqr(max)=sqr(min1)+sqr(min2)) then Writeln('Треугольник прямоугольный') else if (sqr(max)<sqr(min1)+sqr(min2)) then Writeln('Треугольник остроугольный') else Writeln('Треугольник тупоугольный'); end else Writeln('Треугольник не существует'); Readln(); END.
Прогромист, бугалтер может