Function HOD(a: integer; b: integer): integer; // Нахождение НОД var i: integer; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; HOD := a end;
var A, B, C: integer;
begin Write('Введите через пробел значения A,B,C: '); Readln(A, B, C); Writeln('НОД(A,B,C)=', HOD(HOD(A, B), C)) end.
<u>Тестовое решение:</u> Введите через пробел значения A,B,C: 1532 628 388 НОД(A,B,C)=4