Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.70/10: Рейтинг темы: голосов - 10, средняя оценка - 4.70
Bulat3
1 / 1 / 0
Регистрация: 01.06.2009
Сообщений: 20
1

НОК и НОД

11.06.2009, 18:02. Просмотров 1834. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить с помощью процедур:
Составте программу вычисления наименьшего общего кратного трех целых чисел x, y, z,

(Free Pascal)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2009, 18:02
Ответы с готовыми решениями:

Нахождение НОК и НОД
Помогите пожалуйста написать программу которая будет вычислять наименьший общий...

Найти НОД и НОК заданных чисел a и b
1)Пользуясь алгоритмом Евклида и соотношением между нод и нок, найти нод и...

Программа по нахождению нод и нок с помощью алгоритма Евклида. Почему то не работает
Программа по нахождению нод и нок с помощью алгоритма Евклида. Почему то не...

найти НОК
Здравствуйте! Начал учиться и появилась проблема. Требуется найти найти...

НОК двух чисел через массив.
Выяснить, имеется ли среди школьников учащийся, день рождения которого...

1
Puporev
Модератор
55045 / 42318 / 29224
Регистрация: 18.05.2008
Сообщений: 100,005
11.06.2009, 18:07 2
Лучший ответ Сообщение было отмечено Bulat3 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program nodnok;
uses crt;
function NOD(m,n:integer):integer;
begin
If m<>0 then NOD:=NOD(n mod m,m) else NOD:=n;
end;
function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;
var x,y,z:integer;
begin
clrscr;
writeln('Vvedite x y z:');
readln(x,y,z);
writeln('NOK ',x,' ',y,' ',z,'=',NOK(NOK(x,y),z));
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2009, 18:07

НОД
Была данная задачка на подготовке к олимпиаде. Язык на котором писал fpc 2.6.0...

НОД
Найти НОД n натуральных чисел

НОД и НОК
Народ, помогите! Надо написать программу: Даны два числа а и b. Найти НОД и...


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

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

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