Var q: string; a,i,z,g,b,x,m: Integer; begin z:=0; g:=1; readln(q,a,b,x,m); for i:=1 to length(q) do begin z:=z+q[i]; end; if z<a then writeln('Верно, что сумма цифр меньше А') else writeln('Неверно, что сумма цифр меньше А'); for i:=1 to length(q) do begin g:=g*q[i]; end; if g>b then writeln('Верно, что произведение цифр больше B') else writeln('Неверно, что произведение цифр больше B'); if x=length(q) then writeln('Верно, что число x значеное') else writeln('Неверно, что число x значное'); if q[0]>m then writeln('Верно, что его первая цифра превышает m') else writeln('Неверно, что его первая цифра превышает m') end.
Если будете сдавать в тестирующей системе, то вместо string, лучше использовать массив char - работает быстрее.
var n,i,k,p,mx,mxj: integer;
s: array[1..100000] of char;
begin
readln(n);
for i:=1 to n do read(s[i]);
k:=0; p:=0;
mx:=0; mxj:=0;
for i:=1 to n do
begin
if s[i]='G' then k:=k+1
else
begin
if p=1 then
begin
p:=0;
if s[i-1]='G' then
if (k>mxj) then mxj:=k;
k:=0;
end
else
begin
if k>0 then p:=1;
if k>mx then mx:=k;
end;
end;
end;
if mx>mxj then k:=mx+1
else k:=mxj+1;
if k=1 then k:=0;
writeln(k);
end.