Даны две переменные целого типа: a и b. если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. вывести новые значения переменных a и b.

Var a,b,c: integer; begin readln(a,b); if a< > b then begin c: =a+b; a: =c; b: =c; end else begin a: =0; b: =0; end; writeln('a=',a,' b=',b); end.

pascal

Объяснение:

function Nod(a,b:integer):integer;{определение НОД двух чисел}

begin

while a<>b do

if a>b then a:=a-b else b:=b-a;

Nod:=a;

end;

var

   a: array of integer;

   n, i: integer;

   k: integer;

begin

 WriteLn('*** Определение НОД нескольких чисел ***');

 Write('Введите кол-во чисел N = '); ReadLn(n);

 SetLength(a, n + 1);

 WriteLn('Введите числа: ');

 for i := 1 to n do

  begin

   Write(i,'-e число: '); Read(a[i]);

   if a[i] mod 2 = 0 then WriteLn(' - четное') else WriteLn(' - нечетное');

  end;

 WriteLn;

 k := Nod(a[1], a[2]);

 for i := 3 to n do k := nod(k, a[i]);

 WriteLn('Общий НОД всех чисел = ', k);

end.

ответ

еще не так давно мобильные приложения являлились эффективными исключительно для больших компаний если не толькодля крупных корпораций.Только у них была необходимая клиентская база которая созданным приложениями и могла пользоваться с ощутимой пользой.

В мире число пользователей смартфонов превышает 2.6 млрд.Android        

приложений 2.2 млн.iPhone приложений 2млн.

85% милионов людей владеют смартфонами.

239.9 млрд бесплатных приложений и 13.49 млрд платных приложений.

Наиболее попуулярные приложения в США Messenger 59.7 млн загрузки. Snapchat 54.5 млн загрузки.Facebook 45.8 млн загрузки.

Объяснение: