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