Определить число единиц во введенном числе. паскаль абс

Var   s: string;   i, k: integer; begin   write('введите произвольное число: '); readln(s);   k : = 0;   for i : = 1 to length(s) do       if s[i] = '1' then k : = k + 1;   writeln('количество единиц в числе равно ', k); end. тестовое решение: введите произвольное число: -156153451.4234111322 количество единиц в числе равно 6

1. C2*D2
2. СУММ(C2:C6)

В килобайте 1024 байта. Это правильный ответ)

Всмысле?. Не понимаю тебя.