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

Question

Информатика

Лукьян

19 декабря, 20:50

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

+4

Ответы (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.