Напишите программу сложения двух дробей, результатом должна быть сократимая дробь
122
165
Ответы на вопрос:
// 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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
drad200518.02.2020 07:10
-
striyskiy115.07.2020 17:48
-
Sofiamarfiya31.01.2020 22:49
-
КириллГромов200024.07.2022 05:18
-
Marina583945859327.07.2022 13:38
-
mboyko200507.02.2023 06:01
-
ulaklimenko4910.09.2020 14:28
-
gluilivti01.06.2023 09:45
-
timurtim116.04.2022 18:18
-
22846620.11.2021 06:47
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.