Информатика Помощь по pascal

А на чем она должна быть

 

А ещё че тебе сделать

 

незнаю

 

я не шарю в этом

--- Сообщение объединено с предыдущим 19 ноя 2024

паскаль

 

program PointInArea;
var
x, y: real;
begin
writeln('Enter coordinates x and y:');
readln(x, y);

if (x >= 0) and (y >= 0) and (x + y <= 10) then
writeln('true')
else
writeln('false');
end.

 

program kakawka;

var
x, y: Real;
isInside: Boolean;

begin
Write('Введите координаты точки (x, y): ');
ReadLn(x, y);

isInside := (x >= 0) and (y >= 0) and
(x * x + y * y <= 1) and
(y <= -x + 2);

if isInside then
WriteLn('Точка принадлежит области: True')
else
WriteLn('Точка не принадлежит области: False');
end.

Python

program kakawka;



var

  x, y: Real;

  isInside: Boolean;



begin

  Write('Введите координаты точки (x, y): ');

  ReadLn(x, y);



  isInside := (x >= 0) and (y >= 0) and

              (x * x + y * y <= 1) and

              (y <= -x + 2);



  if isInside then

    WriteLn('Точка принадлежит области: True')

  else

    WriteLn('Точка не принадлежит области: False');

end.

 

Спасибо ребзики