Евгений М
Анна Николаева
var s:string;
....
writeln('число символов равно ', strlen(s));
СЖ
Саня Желик
var s:string;n,i:integer;
begin
writeln('Введите строку, используя русские прописные буквы');
readln(s);
for i:=1 to length(s) do if s[ i ] in ['у','е','ы','а','о','э','я','и','ю'] then inc(n);
writeln('В строке ',n,' слога (ов) ');
end.
Похожие вопросы