VBA. Определить какую задачу можно решить с следующей процедуры. Sub rt()

m = A(1)

z = 1

For i = 2 To 10

If A(i) < m Then m = A(i): z = i

Next i

k = A(z)

A(z) = A(10)

A(10) = k

End Sub

Function gcd(a: integer; b: integer): integer;
// Нахождение НОД
var
  i, a1, b1: integer;
begin
  a1 := a; b1 := b;
  while b1 <> 0 do
  begin
    a1 := a1 mod b1;
    i := b1; b1 := a1; a1 := i
  end;
  result := a1
end;

var
  m, n, k: integer;

begin
  writeln('Введите пару целых чисел');
  readln(m, n);
  k := gcd(m, n);
  if k = 1 then writeln('Числа взаимно простые')
  else writeln('Числа не являются взаимно простыми, НОД=', k)
end.

Тестовое решение:

Введите пару целых чисел
465 532
Числа взаимно простые

Введите пару целых чисел
13440 6930
Числа не являются взаимно простыми, НОД=210

В XIX веке была изобретена фотография. Носителями видеоинформации стали фотопленка и фотобумага.

В 1895 году французы братья Люмьер продемонстрировали в Париже первый в мире кинофильм, используя аппарат собственного изобретения. Этот год считается годом рождения кино.

История технических средств хранения и воспроизведения звука начинается с 1877 года. В этом году в США Томасом Эдисоном был построен фонограф. Звук механическим с записывающей иглы — наносился на поверхность вращающегося барабана, покрытого воском. Немного позднее был создан механический граммофон, а затем его портативный вариант — патефон. воспроизводящие звук, записанный на целлулоидной грампластинке. Электрический аналог патефона — электрофон был изобретен в XX веке. В XX веке был изобретен магнитофон. И совсем недавно на магнитную ленту научились записывать не только звук, но и изображение: появился видеомагнитофон.

Источник: интернет