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

Question

Информатика

Катюха

14 октября, 10:39

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

+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.