program pole; var a, b, c, d, n, kolvo, x, y: real; begin write ('За сколько часов топчет землю Нейромонах Феофан? '); read (a); write ('За сколько часов топчет землю Балалаечник Никодим? '); read (b); write ('За сколько часов топчет землю Косолапый Мишка? '); read (c); write ('За сколько часов топчет землю 1 Добрый Молодец? '); read (d); write ('За сколько часов нужно выкопать землю? '); read (n); x:=1/a+1/b+1/c; kolvo:=(1/n-x)/(1/d); if (kolvo<0) then write ('Группа справится без молодцев.') else begin y:=kolvo; if (((trunc(y*10)) mod 10) <5) then kolvo:=kolvo + 1; write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo)); end; end.
Вот на шарпе. Console.WriteLine("s1="); string s1=Console.ReadLine(); int k=1;int max=0; for (int i = 1; i < s1.Length-1; i++) { if (s1[i-1] == s1[i]) { k++; } else { if (k > max) { max = k; k = 1; } } } Console.WriteLine(max); Console.ReadKey();
Объяснение:
В цикле звезда 4 раза