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

@Den_1 · Регистрация: 03.04.2012

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

Дано предложение состоящее из слов разделенных любы кол-вом пробелов и оканчивается точкой напечатать в алфавитном порядке все звонкие согласные буквы,которые входят больше чем в одно слово!

Добавлено через 9 часов 40 минут

Pascal

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
  const
  sogl=['b','v','g','d','z']
 
Var
s: string;
i: Integer;
BEGIN
 setconsoleoutputcp(1251);
Writeln('vvedite stroky: '); Readln(s);
For i:=Length(s) downto 1 do
if s[i]=sogl then
write(s[i],'  ');
writeln('poluchennue soglasnue');
end.

помогите исправить, что бы работало

@CodeR · 29.05.2012, 10:01

Pascal

1	if s[i] in sogl

Опции темы