Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения — Pascal(Паскаль)

Вывести новые значения переменных A и B.

Program If11;

Var
  A, B, Max: Real;

Begin
  WriteLn('Введите числa A и B: ');
  ReadLn(A, B);
  If A > B Then
    Max := A
  Else
    Max := B;

  If A <> B Then
  Begin
    A := Max;
    B := Max;
  End
  Else
  Begin
    A := 0;
    B := 0;
  End;
  WriteLn('A = ', A, ' B = ', B);

End.

Leave a Comment

− 1 = 3