Есть ответ 👍

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

122
165
Посмотреть ответы 3

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


// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! function nod(a,b: integer): integer; begin   while b> 0 do (a,b): =(b,a mod b);   result: =a end; procedure fracadd(n1,d1,n2,d2: integer; var n,d: integer); // сложение дробей n1/d1 + n2/d2 = n/d begin   (n,d): =(n1*d2+n2*d1,d1*d2);   var k: =nod(n,d);   if k< > 1 then (n,d): =(n div k,d div k) end; begin   var (a,b): =readinteger2('введите числитель и знаменатель 1й дроби: ');   var (c,d): =readinteger2('введите числитель и знаменатель 2й дроби: ');   var m,n: integer;   fracadd(a,b,c,d,m,n);   if n=1 then writeln('сумма=',m)   else writeln('сумма=',m,'/',n) end. пример введите числитель и знаменатель 1й дроби: 6 15 введите числитель и знаменатель 2й дроби: 12 300 сумма=11/25 замечание: вводить только натуральные числа!

Program nd; function nod(n,m: integer): integer; begin while(n< > 0) and (m< > 0) dobeginif n> =m then n: =n mod m else m: =m mod n; end; nod: =m+n; end; var m1,m2,n1,n2,t,ch,zn: integer; begin write('введите числитель и знаменатель 1 дроби через пробел: '); readln(m1,n1); write('введите числитель и знаменатель 2 дроби через пробел: '); readln(m2,n2); ch: =(n2*m1+m2*n1) div nod(n2*m1+m2*n1,n1*n2); zn: =(n1*n2) div nod(n2*m1+m2*n1,n1*n2); write(m1,'/',n1,' + ',m2,'/',n2,' = '); if zn=1 then write(ch) else write(ch,'/',zn); end.

  фрезеровщик -  аладар - 15электромонтер -  петер - 55маляр -    вилмош -  25слесарь -  лайош - 33

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS