Написать программу, которая удваивает меньшее из двух чисел и увеличивает на два большее из чисел

diana1140 diana1140    1   26.05.2019 14:40    4

Ответы
WhiteRout WhiteRout  23.06.2020 01:26
Var a, b : integer;
Begin
  read(a,b);
  if a < b then begin
   a:= a+b;
   b := a-b;
   a:= a--b;
  end;
  writeln(a+2,' ', b * 2);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика