Информатика, опубликовано 2018-08-22 22:22:08 by Гость
Составить программу вычисления суммы мест, на которых в строке, введенной с клавиатуры, стоят согласные буквы. Например в строке сумма мест согласных букв равняется 1+2+3+5+=11
Ответ оставил Гость
Var
s,g:string;
sum:integer;
begin
g:=бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ;
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
//ABC Pascal
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на