Составить программу, которая подсчитывает количество - вопрос №3062774 от ghkbkb 06.01.2021 06:46

Question

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

ghkbkb · Answer

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.

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