)в , ) в заданном предложении подсчитать количество слогов. предложение набрано большими буквами.2) определить сколько в заданном тексте вопросительных предложений.3) в заданном тексте подсчитать количество удвоенных букв.заранее ! : )

262

323

Посмотреть ответы 3

Ответы на вопрос:

serega7315

Информатика

4,7(2 оценок)

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.