35 БАЛЛОВ! паскальЗадана строка состоящая из великих букв латинского алфавита

35 БАЛЛОВ!
паскаль
Задана строчка состоящая из великих букв латинского алфавита кончающаяся восклицательным знаком (!). Подсчитать количество входящих в строчку букв Q.

Входные данные

строчка из великих букв латинского алфавита заканчивающаяся восклицательным знаком. Количество знаков в строке заранее не знаменито, но не превышает 1000.

Выходные данные

целое число количество знаков Q в данной строке.

Пример

на входе:

QUQU!

на выходе:

2

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

// PascalABC.NET 3.4, сборка 1766 от 25.08.2018


begin

var a:= ReadString;

a[:a.IndexOf('!')+1].ToCharArray.Where(t-gt;t='Q').Count.Println;

end.


Пример:

QUQU!

2


Милана Ролик
Ошибка. Это ошибочный ответ
Богатель Тамара
Тем более ''var'' и ''begin'' спутаны
Славян Анода
На 100% уверенны:)
Игорян Костенчук
Поглядите на диалект Паскаля, на котором написан код
Ксюша Цетенко
Довольно a[:a.IndexOf('!')+1].Count(t->t='Q').Println;
Нина Хоба
А дитя глупое не слушайте, оно не ведает, что пишет.
Орендочка Наталья
Ну да, можно без массива символов, пренебрегал, что способы строк за элементы берут конкретно знаки строки. Роли особенной, мыслю, не играет
Яна Рудая
Нет, окончательно, просто кратче.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт