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

Есть ответ
17.12.2022
366

Ответ


var

  a, b:integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  if a < b then

  begin

    a := a + b;

    b := a - b;

    a := a - b;

  end;

  if a mod b  = 0 then

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

  else

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

end.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.