Паскаль.Составить программку для решения следующей задачки: Даны числа a, b -
Паскаль.
Составить программку для решения последующей задачки: Даны числа a, b - целые (lt;gt;0). Уменьшить дробь a/b.
Поначалу отыскать НОД этих двух чисел. Потом знаменатель и числитель поделить на НОД.
1 ответ
Тамара Ворошилова
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программка не работает, обновите версию!
begin
var p,q:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
var a:=абс(p);
var b:=абс(q);
while blt;gt;0 do begin a:=a mod b; Swap(a,b) end;
p:=p div a;
q:=q div a;
Writeln('Итог: ',p,'/',q)
end.
Пример
Введите числитель и знаменатель: 1440 16200
Итог: 4/45
// Внимание! Если программка не работает, обновите версию!
begin
var p,q:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
var a:=абс(p);
var b:=абс(q);
while blt;gt;0 do begin a:=a mod b; Swap(a,b) end;
p:=p div a;
q:=q div a;
Writeln('Итог: ',p,'/',q)
end.
Пример
Введите числитель и знаменатель: 1440 16200
Итог: 4/45
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов