Бэтмен считал денек успешным, если ему удавалось совершить подвиг, и безуспешным,

Бэтмен считал денек успешным, если ему удавалось совершить подвиг, и безуспешным, если его помощь была в этот денек не нужна. Супергерой водил дневник, в котором отмечал каждый денек или У (удачный), или Н (безуспешный). По строке, содержащей знаки У и Н, определите самую длинноватую последовательность из успешных дней.

Задать свой вопрос
1 ответ

program luck;
var s: string;
max, k: integer;
begin
writeln(Введите строку состоящую из букв У (Удачный) и Н (Безуспешный));
readln(s);
max:= 0;
for i: integer:= 1 to length(s) do
begin
if s[i] = У then
begin
k:= k + 1;
if k gt; max then max:= k
end
else k:= 0
end; 
writeln(Наибольшее количество, попорядку идущих успешных дней: , max)
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт