Написать программу на pascalabcnetвходные данныедана последовательность натуральных чисел, завершающаяся нулем. выходные данныеопределите, какое наибольшее количество подряд идущих элементов этой последовательности равны друг другу.числа, идущие после нуля, считывать не нужно.

вжик82 вжик82    3   21.08.2019 00:50    2

Ответы
vipvip16tk vipvip16tk  05.10.2020 08:19
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.     
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика