Ответ(ы) на вопрос:
Гость
Var
A,B,X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
Write('A = ');Read(A);
Write('B = ');Read(B);
if ((AB 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.
Не нашли ответ?
Похожие вопросы