Предположим, что в массиве A записаны данные о росте игроков баскетбольной
команды. Найдем количество игроков, рост которых больше 180 см, но меньше 190 см, а так же сумму элементов удовлетворяющих условию и их среднее
арифметическое. ПИТОН

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт