Регистрация
валерия852
Есть ответ 👍

Дана строка. Подсчитать самую длинную последовательность подряд идущих букв «а». (программа Паскаль)

126
350
Посмотреть ответы 2

Ответы на вопрос:

Maxyim
Maxyim
4,7(89 оценок)
uses crt;
var i,sum,max:integer;
     s:string;
begin
 clrscr;
 writeln('Vvedite stroku ');
 readln(s);
 for i:=1 to length(s) do
sum:=0;
max:=0;
  if s[i]='a' then sum:=sum+1
   else
    begin
     if sum>max then max:=sum;
     sum:=0;
    end;
 writeln(max);
readln;
 
end.
лера2042
лера2042
4,5(93 оценок)

Б. 3*10^13м болады бұл тжыбы ма

Популярно: Другие предметы