Решаем задачи Абрамян на Паскале. String54

String54. Дана строка-предложение на русском языке. Подсчитать количество содержащихся в строке гласных букв.

Решение:

program String54;
var
 S:String;
 i,Num:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  Num:=0;
  While (i<=Length(S)) do
   begin
    if ord(S[i]) in [160,165,168,174,227,235,237,238,239,241,
                     128,133,136,142,147,155,157,158,159,240] then inc(Num);
    //160-'а',165-'е',168-'и',174-'о',227-'у',235-'ы',237-'э',238-'ю',239-'я',241-'ё'
    //128-'А',133-'Е',136-'И',142-'О',147-'У',155-'Ы',157-'Э',158-'Ю',159-'Я',240-'Ё'

    inc(i);
   end;

  Writeln(Num);
end.

program String54;

var

S:String;

i,Num:integer;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

While (i<=Length(S)) do

begin

if ord(S[i]) in [160,165,168,174,227,235,237,238,239,241,

128,133,136,142,147,155,157,158,159,240] then inc(Num);

//160-'а',165-'е',168-'и',174-'о',227-'у',235-'ы',237-'э',238-'ю',239-'я',241-'ё'

//128-'А',133-'Е',136-'И',142-'О',147-'У',155-'Ы',157-'Э',158-'Ю',159-'Я',240-'Ё'

inc(i);

end;

Writeln(Num);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String54

Комментарии:

Добавить комментарий Отменить ответ