Решение показано в прилагаемом файле.
Формула:
=ЕСЛИ(C2<=2;0;ЕСЛИ(C2=3;0,2*B2;0,3*B2))
Program kek;var r,q,z,s,n:integer;beginwrite ('введите непустую невозрастающуюю последовательность целых чисел, заканчивающуююся нулем');readln (n);z:=0;q:=1;while n<>0 dobeginif n=z then q:=q+1 else z:=n;readln (n); end;write ('кол-во одинаковых, идущих подряд чисел равно ', q);end.
Объяснение в приложении. Простите за почерк)
Х=
=
y=
=
x+y=58+43=101{10}=145{8}=65{16}
----------------------------------------------------------
111010{2}=1*2+1*2^3+1*2^4+1*2^5=58{10}
101011{2}=1*2^0+1*2^1+1*2^3+1*2^5=43{10}
101{10}=
101|_8_
- 96 12|_8_
-------- -8 1
5 ----
4
101{10}=145{8}
101|_16_
-96 6
-----
5
101{10}=65{16}