ПОМОГИТЕ, ПОЖАЛУЙСТА!!!!!!!!1) В заданномПОМОГИТЕ, ПОЖАЛУЙСТА!!!!!!!!1) В заданном предложении подсчитать количество слогов. Предложение набрано большими русскими буквами.2) Определить сколько в заданном тексте вопросительных предложений.3) В заданном тексте подсчитать количество удвоенных букв.Заранее спасибо! :)

2

Ответы и объяснения

2014-01-16T05:36:35+00:00
А где сам текст? или первое предложение и есть он?
2014-01-16T05:37:58+00:00
Program test;
var udv,i,vopr,slog:integer;s:string;
begin
readln(s);
slog:=0;
vopr:=0;
udv:=0;
for i:=2 to length(s) do
begin
if s[i] = s[i-1] then udv:=udv+1;
if s[i]='?' then vopr:=vopr+1;
if (s[i]='А') or (s[i]='О') or (s[i]='Э') or (s[i]='И') or (s[i]='У') or (s[i]='Ы') or (s[i]='Е') or (s[i]='Ё') or (s[i]='Ю') or (s[i]='Я') then slog:=slog+1;
end;
writeln('Слогов:',slog);
writeln('Удвоенных букв:',udv);
writeln('Вопросительных предложений: ',vopr);
end.