Question

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

Answer 1

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.

Answer 2

Если пользователь вводит два числа, то для нахождения ответа нужно выполнить следующие шаги:

1. Проверить, какое из чисел больше. 2. Если большее число кратно меньшему, то найдем их сумму. 3. Если большее число не кратно меньшему, то найдем их частное.

Пример:

Пусть пользователь ввел два числа: 10 и 5.

1. Проверяем, что 10 больше 5. 2. 10 кратно 5, поэтому их сумма будет 10 + 5 = 15.

Если пользователь ввел числа 7 и 3:

1. Проверяем, что 7 больше 3. 3. 7 не кратно 3, поэтому их частное будет 7 / 3 = 2.33 (округляем до двух знаков после запятой).

Таким образом, в зависимости от того, какое число больше и кратно ли оно меньшему, мы находим сумму или частное этих чисел.