Паскаль. "В заданной строке подсчитать кол-во букв латинского алфавита" при помощи...

Question

Паскаль. "В заданной строке подсчитать кол-во букв латинского алфавита" при помощи строковой функции "length"

Answer 1

S:string;
k, i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (ord(s[i])>64) and (ord(s[i])<91) then k:=k+1;<br>if (ord(s[i]>95) and(ord(s[i])<123) hen k:=k+1;<br>writeln(k);
readln;
end.