02.10.2018, 13:24
общий
это ответ
Здравствуйте, svrvsvrv!
Смотрите приложение:
[code lang=pascal]var
a,b:string;
i,j:integer;
begin
write('Enter string:');
readln(a);
i:=0;
j:=0;
while length(a)>0 do
begin
case UpCase(a[1])of
'B','C','D','F','G',
'H','J','K','L','M',
'N','P','Q','R','S',
'T','V','W','X','Y',
'Z','Б','В','Г','Д',
'Ж','З','Й','К','Л',
'М','Н','П','Р','С',
'Т','Ф','Х','Ц','Ч',
'Ш','Щ','Ь','Ъ':begin inc(i);inc(j)end;
'A','E','I','O','U',
'А','О','И','Е','Ё',
'Э','Ы','У','Ю','Я':inc(j);
else begin end;
end;
delete(a,1,1);
end;
writeln('all chars:=',j);
writeln('chars:=',i);
writeln('percent:=',(i/j):4:2);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.