Найти количество малых, больших букв и других символов - Pascal ABC

Формулировка задачи:

Дана строка. Найти в ней количество малых букв, количество заглавных букв, количество других символов. Спасибо за внимание!

Код к задаче: «Найти количество малых, больших букв и других символов - Pascal ABC»

textual
Var s : string;
    i, j, k1, k2, k3 : integer;
begin
Writeln('Enter s');
Readln(s);
i:=1;
k1:=0;//заглавные
k2:=0;//малые
k3:=0;//все остальное
While (i<=length(s)) do
      begin
      If (ord(S[i])>=65) and (ord(S[i])<=90) then k1:=k1+1 else
      If (ord(S[i])>=97) and (ord(S[i])<=122) then k2:=k2+1 else k3:=k3+1;
      i:=i+1;
      end;
Writeln(k1);
Writeln(k2);
Writeln(k3);
Readln;
end.

15   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы