Var i, a, b, t, d, n : integer; x : array of integer; begin read(n); SetLength(x, n + 1); for i := 1 to n do read(x[i]); a := x[1]; for i := 2 to n do begin b := x[i]; d := a * b; while (b > 0) do begin t := a; a := b; b := t mod b; end; a := d div a; end; writeln(a); end.
1.На сегодняшний день компьютер людям в работе в ряде многих отраслей промышленности, в бухгалтерском деле, в сфере компьютерного искусства. Благодаря компьютеру человечество вступило на новый этап развития. Искуснейшие трюки в фильмах, корректирование голоса на звукозаписи, быстрый и точный перевод с любого языка мира, - всё это стало возможно лишь благодаря достижениям современных компьютерщиков. Сферы использования программирования в науке и технике 2.Телефон. Тот же компьютер,только маленький. 3. Которую нельзя превращать с сигналы. Которую мы воспринимаем с обоняния, вкуса и осязания
1.На сегодняшний день компьютер людям в работе в ряде многих отраслей промышленности, в бухгалтерском деле, в сфере компьютерного искусства. Благодаря компьютеру человечество вступило на новый этап развития. Искуснейшие трюки в фильмах, корректирование голоса на звукозаписи, быстрый и точный перевод с любого языка мира, - всё это стало возможно лишь благодаря достижениям современных компьютерщиков. Сферы использования программирования в науке и технике 2.Телефон. Тот же компьютер,только маленький. 3. Которую нельзя превращать с сигналы. Которую мы воспринимаем с обоняния, вкуса и осязания
x : array of integer;
begin
read(n);
SetLength(x, n + 1);
for i := 1 to n do
read(x[i]);
a := x[1];
for i := 2 to n do begin
b := x[i];
d := a * b;
while (b > 0) do begin
t := a;
a := b;
b := t mod b;
end;
a := d div a;
end;
writeln(a);
end.