• с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

Ответы 1

  • var  n,k,i: integer;  s:string;beginwrite('Введите фразу: ');readln(s);k:=length(s)-1;if s[1]='а' then n:=1;for i := 1 to k do      if (s[i]=' ') and (s[i+1]='а') then n:=n+1;writeln('Число слов на а(рус.): ',n)end.
    • Автор:

      skylar6
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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