Помогите очень срочно решить задачу в Free pascal, с меня+ и возможен небольшой призент Поделиться Опции

[ritm9393]

вот это надо решить

[Andy51]

ritm9393, что это?

[CrashX]

какая то фигура на плоскости)
возможно надо площадь фигуры рассчитать,больше не вижу что еще можно с ней сделать

[DmT]

че сделать то?

[ritm9393]

всё уже не нужно ,помогли решить
должно было что типо этого

Program Point ;
Uses crt;
Var X,Y : real;
L: boolean;
Begin
Clrscr;
Write('Введите X:' );
Readln(X);
Write(' Введите Y :' );
ReadLn(Y);
L:= (X<=0)and (Sqr(X)+Sqr(Y)<=9) and (Y>=-X-3) or (X>=0) and (Sqr(X)+Sqr(Y)<=25);
WriteLn (' Точка лежит в заданной области? ', L);
Readkey;
End.

[DmT]

facepalm.jpg

[CrashX]

[Andy51]

[kai...]

ritm9393, мой опыт работы в техподдержке недостаточно высок