Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 81 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

81
1:IF X = Y THEN HOD:=X;
IF X > Y THEN begin
X:= X – Y;goto 1;
end;
IF Y > X THEN begin
Y:= Y – X;goto 1;
end;
end;
Begin
FOR i= 1 ТО N READ (C[i]);
A:= С ([l])
FOR i = 1 TO N–1 begin B:=С[i + 1];
A:= HOK(A,B);
end;
writeln ("HOK="; A);
end. 
1:IF X = Y THEN HOD:=X;
IF X > Y THEN begin
X:= X – Y;goto 1;
end;
IF Y > X THEN begin
Y:= Y – X;goto 1;
end;
end;
Begin
FOR i= 1 ТО N READ (C[i]);
A:= С ([l])
FOR i = 1 TO N–1 begin B:=С[i + 1];
A:= HOK(A,B);
end;
writeln ("HOK="; A);
end.




                                      81

Страницы