Чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid
Чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы