1. Он американский ученый, основоположник кибернетики. А также теории об искусственном интеллекте. Славу ему принесли его работы в математике и физике. Его большая роль в том, что именно он впервые смог понять огромное значение того, что информация будет использоваться в процессах управления.
2. Основатель теории информации, которая нашла свое место в современных системах связи. В 40-х годах века ввел понятие «бит».
3. Термин, который означает «выполняющееся действие по запросу», ввел Тед Нельсон в веке, в 1963 году.
4. В 1989 году. Изобретателем считают двух человек – Тима Бернерс-Ли и Роберт Кайо.
5. Эйлер, в честь которого назвали графическую схему, был ученым. Его сферой изучения была математика, физика, астрономия, химия, ботаника, музыка, медицина и другие направления. Он автор 600 трудов.
Если будете сдавать в тестирующей системе, то вместо 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.
