Кто может являться абонентом сети? (выберите правельные ответы) -персональные компьютеры -локальные сети предприятий, университетов и т.п -большие супер компьютеры (например, мейфрейны) -другие локальные сети

Ну в принципе, правильные ответы - первый и третий.

Смотри картинку

Объяснение:

p = 23

s = 0

цикл выполняется пока р > 0

Действия в цикле:

s = s + p mod 10

p = p div 10

p = 23     s = 0     23 > 0 (да)

выполняем цикл

s = s + p mod 10 = 0 + 23 mod 10 = 0 + 3 = 3

p = p div 10 = 23 div 10 = 2

p = 2     s = 3     2 > 0 (да)

выполняем цикл

s = s + p mod 10 = 3 + 2 mod 10 = 3 + 2 = 5

p = p div 10 = 2 div 10 = 0

p = 0     s = 5     0 > 0 (нет)

не выполняем цикл

div - целочисленное деление

mod - остаток от целочисленного деления

2 / 2 = 1 целое + 0 остаток

2 div 2 = 1

2 mod 2 = 0

3 / 2 = 1 целое + 1 остаток

2 div 2 = 1

2 mod 2 = 1

Const  n = 7; var  a: array [1..n] of integer;         i: integer; begin   writeln('начальный вид массива: ');   for i : = 1 to n do     begin     a[i] : = 5 + random(31);     writeln('a[', i, ']=', a[i]: 3);   end;   writeln('конечный вид массива: ');   for i : = 1 to n do     begin     if a[i] > 15 then a[i] : = 8;     if a[i] = 5 then a[i] : = 0;     writeln('a[', i, ']=', a[i]: 3);   end;   readln end.