Помогите 3 и 5...надо составить программу Паскаль
Помогите 3 и 5...надо составить программу Паскаль
Гость
Ответ(ы) на вопрос:
Гость3.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (X>=-2)and(Y<=-X)and(X*X+Y*Y>=4) then WriteLn('Попал')
else WriteLn('Мимо')
End.
5.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y<=0)and(X>=0)and(Y>=X/2 -1) then Write('Попал')
else WriteLn('Мимо')
End.
Не нашли ответ?
Похожие вопросы