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

String15. Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.

Решение:

program String15;
var
  i,Num:integer;
  S:string;

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

 Num:=0;
 for i:=1 to Length(S) do
  if (ord(S[i]) in  [97..122,160..175,224..239]) then inc(Num);

 Writeln(Num);
end.

program String15;

var

i,Num:integer;

S:string;

begin

Write('S:');

Readln (S);

Num:=0;

for i:=1 to Length(S) do

if (ord(S[i]) in [97..122,160..175,224..239]) then inc(Num);

Writeln(Num);

end.

Если же надо, что бы в подсчёт попадали и русские буквы в верхнем регистре, то надо расширить диапозон, до [97..122,128..175,224..243].

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

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

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

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