Что называется сетевым протоколом 1)договор о подключении к сети 2)перечень устройств для подключения к сети 3)программа для подключения к сети интернет 4)соглашения и правила о порядке обмена информацией в сети

3) программа для подключения к сети интернет

Var       s: string;       i, sum, k: integer; begin       readln(s);       for i : = 1 to length(s) do       begin               if s[i] in '0123456789' then sum : = sum + strtoint(s[i])               else if s[i] in 'abcdefghijklmnopqrstuvwxyz' then k : = k + 1;       end;       writeln(sum, ' ', k); end.

//pascalabc.net 3.1 сборка 1219 begin       var s : = readstring('s =');       var t : = s.matchvalues('[0-9]+').aggregate(0, (s, x)-> s + strtoint(x));       var t1 : = s.matchvalues('[a-z]').count;       println(t, t1); end. или var       s: string;       i, sum, k: integer; begin       readln(s);       for i : = 1 to length(s) do       begin               if s[i] in '0123456789' then sum : = sum + strtoint(s[i])               else if s[i] in 'abcdefghijklmnopqrstuvwxyz' then k : = k + 1;       end;       writeln(sum, ' ', k); end.