Char

@Subh[U]man · Регистрация: 30.10.2009

Дана последовательность из n символов. Подсчитать наибольшее число букв 'a' идущих подряд в данной последовательности

@Public main · 17.11.2011, 12:50

var a:string;
b,c:integer;
begin
readln(a);
for b:=1 to length(a) do begin
if(a[b]='a')then c:=c+1;
end;
writeln(c);
end.

@Subh[U]man 0 / 0 / 1 Регистрация: 30.10.2009 Сообщений: 7
		1
	Char 17.12.2009, 16:39. Показов 1896. Ответов 1 Метки нет (Все метки) Дана последовательность из n символов. Подсчитать наибольшее число букв 'a' идущих подряд в данной последовательности 0

@Public main 15 / 15 / 0 Регистрация: 06.11.2011 Сообщений: 53
	17.11.2011, 12:50	2
	var a:string; b,c:integer; begin readln(a); for b:=1 to length(a) do begin if(a[b]='a')then c:=c+1; end; writeln(c); end. 0

Опции темы