Информатика, вопрос задал Танчик16 , 9 лет назад

даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5

Ответы на вопрос

Ответил sansanic
0

var

  a, b: real;

 

begin

  writeln('Введите 2 числа');

  readln(a, b);

  if a > b then 

  begin

    a:= a + 3;

    b:= b - 5;

  end;

  if a < b then

  begin

    a:= a - 5;

    b:= b + 3;

  end;

  writeln('a = ', a, ', b = ', b);

end.

Новые вопросы