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

Question

Информатика

Артемида

22 сентября, 09:58

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

+3

Ответы (1)

Знаете ответ?

Володя · 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;

if (ord (s[i]>95) and (ord (s[i]) <123) hen k:=k+1;

writeln (k) ;

readln;

end.