Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
slavaapakinp00lrn19.08.2022 17:47
-
vabimGogolev13.12.2020 09:32
-
Kamillka00517.06.2020 03:06
-
сонЯ2010125.06.2020 09:01
-
катя480203.02.2023 07:55
-
ZEVS33333311.04.2021 08:08
-
lizaojgihina24.02.2020 13:58
-
Вишня00724.09.2021 05:00
-
amiranur107.05.2020 16:26
-
Аиляра10.06.2021 16:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.