Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Очень срочно 2-ой номер, сделайте пожалуйста

Ответ оставил Гость

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.

Тестовое решение:
Введите через пробел значения A,B,C: 1532 628 388
НОД(A,B,C)=4