Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
Анатолий96
0 / 0 / 0
Регистрация: 11.10.2013
Сообщений: 4
#1

Наименьший общий знаменатель

15.10.2013, 11:34. Просмотров 3293. Ответов 1
Метки нет (Все метки)

Для сложения трех обыкновенных дробей со знаменателями a, b и с(1<a,b<c<=1200)необходимо найти наименьший общий знаменатель, который может быть большим, но не больше 231-1=2147483647.
Программа должна.
-Запросить три натуральных числа-знаменатели трех дробей(1<a,b<c<=1200)
-Вычислит и выведет на экран наименьший общий знаменатель
Пример:
Знаменатели 4,6,18
Наименьший общий знаменатель 36.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2013, 11:34
Ответы с готовыми решениями:

Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D.
Даны две простые дроби числитель первой А, знаменатель В, числитель второй...

В массиве наименьший элемент поместить на первое место, наименьший из оставшихся на последнее
Колокол. В массиве A(n) наименьший элемент поместить на первое место,...

Найти наименьший член последовательности, наименьший из положительных членов, наибольшее из попарных произведений
В таблицу занесена последовательность из 10 чисел, взятых в проме- жутке от –5...

Найти наименьший элемент матрицы и от элементов всех столбцов, за исключением первого, вычесть наименьший
Двумерные массивы. Ввести матрицу А размером m*n, найти наименьший элемент и от...

Найти знаменатель геометрической прогрессии
(Аn)-геометрическая прогрессия.А4=-1 А7=27 помогите пожалуйста найти...

1
Puporev
Модератор
54365 / 41954 / 28980
Регистрация: 18.05.2008
Сообщений: 98,826
15.10.2013, 12:16 #2
Лучший ответ Сообщение было отмечено Анатолий96 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
function NOK(n1,n2:longint):longint;
var m,nk:longint;
begin
if n1>n2 then m:=n1 else m:=n2;
nk:=m-1;
repeat
 inc(nk);
until ((nk mod n1)=0) and ((nk mod n2)=0);
NOK:=nk;
end;
var a,b,c:longint;
begin
clrscr;
repeat
writeln('Введите знаменатели 3х дробей от 2 до 1200:');
readln(a,b,c);
until(a>1)and(a<=1200)and(b>1)and(b<=1200)and(c>1)and(c<=1200);
write('Наименьший общий знаменатель=',NOK(NOK(a,b),c));
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2013, 12:16

Найти числитель и знаменатель несократимой правильной дроби
Даны натуральные M, N (M&gt;N). Найти числитель и знаменатель несократимой...

Отсортировать рациональные числа в виде: <числитель> <знаменатель>
В файле Ratio содержатся рациональные числа в виде: &lt;числитель&gt; &lt;знаменатель&gt;...

Сократить дробь, чтобы числитель и знаменатель были взаимнопростые
Даны два натуральных числа :m,n (1..9999),образующие дробь вида m/n. ократить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru