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