Найти наибольший общий делитель трех чисел

@Илиодор · Регистрация: 13.06.2012

Author24 — интернет-сервис помощи студентам

8.Найти наибольший общий делитель трех чисел.

@CodeR · 14.06.2012, 09:19

Pascal

Var a,b,c:integer;
Function Nod(a,b:integer):integer;
Begin
    While a<>b do
     if a>b then a:=a-b 
      else b:=b-a;
     Nod:=a;
End;
Begin
    write('Введите a,b,c: ');readln(a,b,c);
    writeln('Nod(a,b,c): ',Nod(Nod(a,b),c));
    readln;
End.

@Илиодор 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 8
		1
	Найти наибольший общий делитель трех чисел 13.06.2012, 21:20. Показов 18633. Ответов 1 Метки нет (Все метки) 8.Найти наибольший общий делитель трех чисел. 0

	14.06.2012, 09:19

Опции темы

Найти наибольший общий делитель трех чисел

Решение