Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gaibog
03.07.2021 19:03 •
Информатика
Перевод неправильной дроби в правильную несократимую код на pascalabc.net
Показать ответ
Ответ:
volodchenko161
27.09.2020 21:11
Var
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
3
Вывод:
4 2/3
0,0
(0 оценок)
Популярные вопросы: Информатика
slaviktaran00
23.10.2021 21:18
Вася решил отправить e-mail своему другу пете. он знает через какие серверы проходит письмо и решил задать я вопросом, а каким количеством разных путей могло дойти письмо...
Temosha101010
08.05.2023 03:56
Составить блок- схему нахождения разности между квадрантом большего и кубом меньшего из двух различных действительных чисел a и b, вводимых с клавиатуры....
эрика96
18.03.2023 17:51
Вдз информатика 3 класс, нужно сделать в эл виде,чтобы ссылкой можно было преподу отправить в виде документа ,короткую сказку о рыбаке который поймал 3 щуки 5 карасей...
katesmile7
30.12.2022 20:01
Составить программу, которая находит минимальное натуральное число х, такое, что остаток от деления х на 10 равен 9, остаток от деления х на 9 равен 8, остаток от деления...
vika2499
11.04.2021 08:10
решитьзадание по биологии...
brain0003
10.02.2022 06:02
Рассмотри схему! Выполни необходимые вычисления и заполни таблицу! Округли до десятых! хел...
Vladimir1023456789
10.02.2022 06:02
7. Що має на увазі Марлей, коли стверджує: «Я ношу ланцюг, який сам собі скував за життя»? Що означає цей ланцюг і його довжина? (5-7 речень)...
ni4ego
30.05.2021 05:50
Прокоментуйте їх, будь ласка. Які почуття викликають у вас описи природи і які художні засоби використав автор?( Письмово) Хмари мовби наздоганяли одна одну. Верхні...
LoL228LoL228LoL228
26.03.2023 03:08
Хелп гайс по братски, я не понимаю...
Xeitm
13.10.2021 17:06
5 Each line has one mistake. Find the mistake and write the correct word or words on theline.0John enjoys going camping with his family.This year they are go to takegoing1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
3
Вывод:
4 2/3