Составить программу, которая подсчитывает количество заглавных букв в промежутке от "Б" до "ф".

Question

Информатика

Гортензия

11 ноября, 17:03

Составить программу, которая подсчитывает количество заглавных букв в промежутке от "Б" до "ф".

+2

Ответы (1)

Знаете ответ на вопрос?

Данилыч · Answer 1

Var a : set of char;

s: string;

i, c: integer;

begin

a : = ['Б' ... 'Ф', 'Ё'];

writeln ('Введите строку: ') ;

readln (s) ;

for i : = 1 to Length (s) do

if s[i] in a then c : = c + 1;

writeln ('Ответ. ', c) ;

end.