Доброго времени Суток!
Недавно мне задали лабу :
Найти наибольший общий делитель трех натуральных чисел,
использовать функции.
Подскажите пожалуйста алгоритм поиска.
Зараннее спасибо.
НОД(a, b, c)= НОД(НОД(a, b), c)
Вот НОД для двух чисел
Program Example_11;
Var x, y: Integer;
Begin
Writeln('Введите два числа');
Readln(x,y); {вводим два целых числа}
Repeat
If x>y Then x:=x Mod y
Else y:=y Mod x;
Until (x=0) Or (y=0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОД=', x+y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
Readln;
End.
WhiteFang, проверяй программы перед выкладыванием, 1000 раз говорилось... Ты Repeat забыл...
Автору -
http://forum.pascal.net.ru/index.php?s=&showtopic=6525&view=findpost&p=48342
http://forum.pascal.net.ru/index.php?s=&showtopic=6072&view=findpost&p=45875
(в смысле, пользуемся поиском)
спасибо, очень помогло!))
Ciprofloxacin For Diarrhea
Buy Alli Pills Now
buy generic levitra from india online