Предмет: Информатика,
автор: ilfirovna
чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: zemlyankonina
Предмет: Русский язык,
автор: vladimir23657
Предмет: Математика,
автор: Arino4ka10
Предмет: Математика,
автор: Stenlic123