Задать вопрос Регистрация
Помочь другим

  • Паскаль АВС! Составить программу,определяющую какая буква слова S(первая или последняя) чаще в нем встречается. 

Ответы 1

  • VAR    s: String;   s1,s2,i: LongInt;BEGIN    Read(s);    s1 := 0; s2 := 0;    for i := 1 to Length(s) do begin        if (s[i] = s[1]) then Inc(s1);        if (s[i] = s[Length(s)]) then Inc(s2);    end;      if (s1 > s2) then Write('Первая буква');     if (s1 < s2) then Write('Последняя буква');      if (s1 = s2) then Write('Равное количество раз.'); END.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years