Question

Написать программы в PASCAL

Answer 1

Var
A,B,X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
Write('A = ');Read(A);
Write('B = ');Read(B);
if ((A<X)and(B<Y))or((A<Y)and(B<X)) then Write('Пройдёт')
else Write('Не пройдёт')
End.




Var
A,B,C:real;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
if A>B then
   Begin
   C:=(A+B)/2;
   B:=2*A*B;
   A:=C;
   End
else
   Begin
   C:=(A+B)/2;
   A:=2*A*B;
   B:=C;
   End;
WriteLn('A = ',A);
WriteLn('B = ',B);
End.


Var X0,Y0,X1,Y1:byte;
Begin
Write('X0 = ');
Read(X0);
Write('Y0 = ');
Read(Y0);
Write('X1 = ');
Read(X1);
Write('Y1 = ');
Read(Y1);
if (((abs(X0-X1)=1)and(abs(Y0-Y1)=2))or((abs(X0-X1)=2)and(abs(Y0-Y1)=1))) then Write('Может')
else Write('Не может')
End.