Вопрос по информатике:
Паскаль.
Составить программу для решения следующей задачи: Даны числа a, b - целые (<>0). Сократить дробь a/b.
Сначала найти НОД этих двух чисел. Затем знаменатель и числитель разделить на НОД.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.06.2017 07:51
- Информатика
- remove_red_eye 9362
- thumb_up 15
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var p,q:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
var a:=abs(p);
var b:=abs(q);
while b0 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
- 16.06.2017 13:58
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.