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

0 голосов
144 просмотров

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

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

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

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

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

Пример

на входе:

QUQU!

на выходе:

2


Информатика (15 баллов) | 144 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

// 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


(5.8k баллов)
0

Ошибка. Это неправильный ответ

0

Тем более ''var'' и ''begin'' перепутаны

0

На 100% уверенны?:)

0

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

0

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

0

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

0

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

0

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