Задача: Дана последовательность натуральных чисел, - вопрос №119769180 от gusarova17 20.10.2022 15:36

Question

Информатика: Задача: Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу (подсчитать одинаковые числа). Вводимые числа: 1,7,7,9,1,0. В ответе должно быть число: 2 (писать на паскале)

gusarova17 · Answer

program skoka_odinakovih;var x,y,k,k1:integer;beginwriteln( Введите числа. Конец ввода 0 》 );read(y);k:=1;k1:=1;repeat read(x); if x=y then inc(k) else begin y:=x; if(k k1) then k1:=k; k:=1 enduntil x=0;write(k1)end....