чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid
5-9 класс
|
Vladdd1976
27 дек. 2016 г., 22:46:50 (7 лет назад)
Aisa98
27 дек. 2016 г., 23:42:35 (7 лет назад)
var a,b,c,x :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;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
end.
Ответить
Другие вопросы из категории
Оформите в виде блок -схемы алгоритм приготовления каши из топора по мотивам русской нородной сказки. начало => ........... => ...........
=> ........... => ........... => ........... => ............. => конец.
ПС.: Вместо ......... ПОСТАВИТЬ КАК ГОТОВИТЬСЯ
Читайте также
Найти наибольший общий делитель чисел A, B, C,
создав функцию для нахождения НОД двух натуральных чисел.
Помогите пожалуйста!
Задания в pascal
1)Найти среднее арифметическое n чисел.
2)Является ли число простым.
3)Найти наибольший общий делитель двух чисел.
4)Спортсмен пробежал 10 км за 1 день,каждый следующий день пробегал на 10% больше,
сколько он пробежал за n дней.
5)Найти количество делителей у данного числа.
Решите буду очень признателен.
Вы находитесь на странице вопроса "чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.