Вопрос по информатике:
Помогите пожалуйста
Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократите дробь, то есть найдите такие натуральные числа p и q, не имеющие общих натуральных делителей, кроме 1
ПАСКПЛЬ. Пожалуйста, как можно проще
- 06.04.2018 19:39
- Информатика
- remove_red_eye 6322
- thumb_up 28
Ответы и объяснения 1
var n,m,d:integer;
function NOD(n,m:integer):integer;
begin
while nm do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
write('введите числитель: ');
readln(n);
write('введите знаменатель: ');
readln(m);
writeln('введена дробь: ',n,'/',m);
d:=nod(n,m);
n:=n div d;
m:=m div d;
writeln('сокращенная дробь: ',n,'/',m);
end.
- 07.04.2018 07:45
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.