сложение и умножение мест согласных букв данного слова

@studentka1 · Регистрация: 02.04.2013

Author24 — интернет-сервис помощи студентам

вычислить сложение и умножение мест согласных букв данного слова

@Midian · 14.04.2013, 11:09

Pascal

uses crt;
const
soglas = ['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var
i: byte;
sum: integer;
stroka: string;
begin
write('Введите строку: ');
readln(stroka);
sum:=0;
for i:=1 to length(stroka) do
if (stroka[i] in soglas) then
begin
sum:=sum+i;
end;
writeln('Сумма мест согласных: ',sum);
sum:=1;
for i:=1 to length(stroka) do
if (stroka[i] in soglas) then
begin
sum:=sum*i;
end;
writeln('Произведение мест согласных: ',sum);
end.

@studentka1 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 15
		1
	сложение и умножение мест согласных букв данного слова 13.04.2013, 23:01. Показов 1291. Ответов 1 Метки нет (Все метки) вычислить сложение и умножение мест согласных букв данного слова 0

	14.04.2013, 11:09

сложение и умножение мест согласных букв данного слова

Решение