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.
Частично и часто...спасибо за внимание.
Я думаю 3
...........................
.bmp фото
.mp4 видео
.txt текст
Материскаяа плата иииииии