Тип данных - множество. Составьте программу вычисления суммы мест, на которых в слове Х стоят глухие согласные

@JuliaKadeeva · Регистрация: 14.12.2014

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

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

Kodzaev · 14.12.2014, 18:40

Pascal

const
  m = ['К', 'П', 'С', 'Т', 'Ф', 'Ч', 'Ц', 'Ч', 'Ш', 'Щ'];
 
var
  x: string;
  i: byte;
  s: integer;
 
begin
  WriteLn('Введите строку:');
  ReadLn(x);
  for i := 1 to Length(x) do
    if UpCase(x[i]) in m then
      s := s + i;
  WriteLn('Сумма мест, на которых стоят глухие согласные = ', s);
  WriteLn('Программа завершена. Нажмите Enter');
  ReadLn
end.

@JuliaKadeeva 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 4
		1
	Тип данных - множество. Составьте программу вычисления суммы мест, на которых в слове Х стоят глухие согласные 14.12.2014, 18:19. Показов 1771. Ответов 1 Метки нет (Все метки) Составьте программу вычисления суммы мест, на которых в слове Х стоят глухие согласные буквы. 0

	14.12.2014, 18:40

Тип данных - множество. Составьте программу вычисления суммы мест, на которых в слове Х стоят глухие согласные

Решение