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

Question

Информатика

Фортуната

7 ноября, 01:53

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

+1

Ответы (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.