Что-то типа:
uses Crt;
var x, y:real;
begin
ClrScr;
Write('X='); ReadLn(X);
Write('Y='); ReadLn(Y);
if (X>=0) and (x<=3) and (Y>=0) and (Y<=3) then WriteLn ('Yes!!!')
else WriteLn('No...');
ReadLn;
end.
Набор соглашений о взаимодействиях в компьютерной сети, то есть А
1012,1112,10002,10102,11002,1000012.
Var a, b, c:real;
begin
writeln('Введите значение гипотенузы и катета:');
read(c, a);
b := sqrt(c*c - a*a);
write(b);
end;
50/x-50/x+40=4
50x+2000-50x/x(x+40)=4
2000=4x^2+160x
-4x^2-160x+2000=0
x^2+40-500=0
x1=-50
x2=10
ответ 10 км/ч