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

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

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

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

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

Пример

на входе:

QUQU!

на выходе:

2

Посмотрите на диалект Паскаля, на котором написан код

Достаточно a[:a.IndexOf('!')+1].Count(t->t='Q').Println;

А дитя неразумное не слушайте, оно не ведает, что пишет.

Ну да, можно без массива символов, забыл, что методы строк за элементы берут именно символы строки. Роли особой, думаю, не играет

Нет, конечно, просто короче.

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

begin

var a:= ReadString;

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

end.

Пример:

QUQU!

2