Чтобы найти наибольший общий делитель постройте программу используя эту формулу...

0 голосов
58 просмотров

Чтобы найти наибольший общий делитель постройте программу используя эту формулу :нод(А,B,C)=нод(нод(А,B,),C).( через программу паскаль) program=Evklid


Информатика (1.5k баллов) | 58 просмотров
Дан 1 ответ
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.