Люди задание наверху ☝️☝️​

ответ:2)информационная сфера-это сфера деятельности субъектов, связанная с созданием, преобразованием и потреблением информации. материальное производство- производство, направленное на создание мат.благ. к примеру: в моем классе 25 человек,у каждого ученика по 2 родителя(мама и папа). у 17 из 25 учеников родители трудятся на создание материальных благ, из чего мы можем сделать вывод о том, что мы далеки от стадии информационного общества. 3)информатизация- политика и процессы, направленные на построение развитие телекоммуникационной инфраструктуры, объединяющей территориально распределенные информационные ресурсы.

Объяснение:

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Пример программы с использованием данной функции:

Program Example;
Var a, b: Integer;

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Begin
    Write('a = ');
    ReadLn(a);
    Write('b = ');
    ReadLn(b);
    Write('НОД: ', NOD(a, b));
    ReadLn;
End.