Question

Даны две дроби a b и c d Напишите программу, которая находит целую часть их суммы.Входные данные В первой строке указаны через пробел целые числа a, b, c и d(1 6 a, b, c, d 6 100).Результат Выведите целую часть суммы ab + c=dвыразить в программу паскаль

Answer 1

Для начала решим это математически:

Пусть $\frac{a}{b}$ и $\frac{c}{d}$ - данные дроби.

Их сумма будет:

$\frac{a}{b}+\frac{c}{d}=\frac{a*d+b*c}{b*d}$

И нужно найти целую часть от деления (a*d+b*c) на (b*d).

Теперь составляем программу:

var a,b,c,d: integer;

begin

readln(a,b,c,d);

write(abs(a*d+b*c) div abs(b*d));

end.

Answer 2

Вот пример программы на языке Pascal, которая находит целую часть суммы двух дробей:

pascalCopy code
program SumOfFractions;

var
  a, b, c, d: Integer;
  sum: Integer;

begin
  { Ввод данных }
  Write('Введите числа a, b, c, d (через пробел): ');
  ReadLn(a, b, c, d);

  { Вычисление суммы }
  sum := (a * b + c * d) div (b * d);

  { Вывод результата }
  WriteLn('Целая часть суммы: ', sum);
end.

Программа запрашивает ввод четырех целых чисел (a, b, c, d) через пробел. Затем она вычисляет сумму двух дробей, используя формулу (a * b + c * d) div (b * d), где div обозначает целочисленное деление. Результат, то есть целая часть суммы, выводится на экран. Обратите внимание, что в данном примере программы предполагается, что значения a, b, c и d находятся в диапазоне от 1 до 100, как указано в условии задачи.