Паскаль. "В заданной строке подсчитать кол-во букв латинского алфавита" при помощи строковой функции "length"
Паскаль. "В заданной строке подсчитать кол-во букв латинского алфавита" при помощи строковой функции "length"
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы