Регистрация
Ороохзшрорр
12.01.2022 08:17
Информатика
Есть ответ 👍

Сложение дробей. 7 класс даны две дроби a/b c/d, нужно их сложить (знаменатели могут быть разными). находить через нод. в программе каждое действие пояснить. язык pascal.

242
258
Посмотреть ответы 2

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

DarthRevan8
DarthRevan8
4,5(21 оценок)

var n,m,a,b,c,d,k: longint;

function nod(x,y: longint): longint;

var c: longint;

  begin

    while y> 0 do

      begin

        c: =x mod y;

        x: =y;

        y: =c;

      end;

      nod: =x;

  end;

function nok(x,y: longint): longint;

  begin

    nok: =(x*y) div nod(x,y);

  end;

begin

  readln(a,b,c,d);

  n: =nok(b,d);

  a: =a*(n div b);

  c: =c*(n div d);

  m: =a+c;

  k: =nod(a,c);

  write(m div k, ' ' ,n div k);

end.

Алька0511
Алька0511
4,4(6 оценок)

не знаю даж

Объяснение:

[email protected]?$?^ ааааааааааааа

Популярно: Информатика