Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! function gcd(a,b: integer): integer; // нод begin while b< > 0 do begin a: =a mod b; swap(a,b) end; result: =a end; procedure redfrac(var a,b: integer); // сокращение дроби begin var (sgna,sgnb): =(sign(a),sign(b)); // мы должны учитывать знак! (a,b): =(abs(a),abs(b)); var d: =gcd(a,b); a: =(a div d)*sgna; b: =(b div d)*sgnb end; begin var (a,b): =readinteger2('введите числитель и знаменатель 1-й дроби: '); var (c,d): =readinteger2('введите числитель и знаменатель 2-й дроби: '); (a,b): =(a*c,b*d); redfrac(a,b); writeln('результат умножения: ',a,' / ',b) end. пример введите числитель и знаменатель 1-й дроби: 32 1024 введите числитель и знаменатель 2-й дроби: 60 300 результат умножения: 1 / 160 в качестве бонуса - решение на базе входящей в состав pascalabc.net библиотеки численных методов uses numlibabc; begin var (a,b): =readinteger2('введите числитель и знаменатель 1-й дроби: '); var (c,d): =readinteger2('введите числитель и знаменатель 2-й дроби: '); writeln('результат умножения: ',frc(a,b)*frc(c,d)) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
unisens18.11.2020 17:24
-
artiom72620.03.2021 05:45
-
vika0312116.04.2020 18:50
-
валентина26827.05.2022 20:00
-
nastuastar1209.08.2020 22:35
-
Хулиганочка1330.05.2021 17:39
-
yuliasitnikova27.10.2022 21:24
-
Ekaterina20013027.04.2023 01:30
-
nastyankazau11224.05.2021 06:47
-
Feya200403.02.2023 09:18
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.