наибольший общий делитель(НОД) и наименьшее общее кратное(НОК) для трех чисел
5-9 класс
|
GoharikM
28 дек. 2016 г., 9:56:06 (7 лет назад)
МегаРмегаР
28 дек. 2016 г., 11:40:34 (7 лет назад)
var
a,b,c,d,k :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
result:=a;
end;
function NOK(a,b:integer):integer;
Begin
result:=(a div NOD (a,b))*b;
end;
begin
writeln('Введите а, b, c');
readln(a,b,c);
d:=NOD(a,b);
d:=NOD(d,c);
k:=NOK(a,b);
k:=NOK(k,c);
writeln('НОД = ',d);
writeln('НОК = ',k);
end.
Ответить
Другие вопросы из категории
я не могу справиться с домашним заданием, задачу по информатике нужно решить с помощью языка паскаля. Задача такова: "Найти наименьшее общее кратное
двух заданных целых чисел" кто поможет заранее благодарю.
ПОМОГИТЕ СРОЧНО((
Дана строковая величина S определите каких букв в ней больше а или о
помогите пожалуйста,нужно сегодня!
по моему на картинке все сладости!
Читайте также
Вы находитесь на странице вопроса "наибольший общий делитель(НОД) и наименьшее общее кратное(НОК) для трех чисел", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.