Учеба и наука

Решено

Алгоритм Евклида - вопрос №483022

составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С)=НОД(НОД(А, В), С)"

Дополнение автора от декабрь 2, 2012 г., 22:56:04

Паскаль

боробошка декабрь 2, 2012 г.

Сообщить о нарушении

Всего ответов: 2

Александр Константинович

10-й в

157 отзывов

Язык какой?

декабрь 2, 2012 г.

var a,b,c: integer;
function nod(x,y:integer):integer;
var t1,t2:integer;
begin
t1:=x;
t2:=y;
while t1<>t2 do
if t1>t2 then t1:=t1-t2 else t2:=t2-t1;
nod:=t1;
end;

Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln©;
writeln('NOD=',nod(nod(a,b),c));
readkey;
End.