Информатика, опубликовано 2018-08-22 22:26:23 by Гость
Составить программу, которая подсчитывает количество заглавных букв в промежутке от "Б" до "ф".
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на