Question

Дан текст, содержащий цифры и буквы. Определить, сколько букв в тексте. в паскаль

Answer 1

var s:string; i,k:integer;
begin
writeln('Введите текст:');
readln(s);
k:=0;
for i:=1 to length(s) do
 if s[i] in ['A'..'Z','a'..'z','А'..'Я','а'..'я'] then k:=k+1;
writeln('k = ',k);
end.

Пример:
Введите текст:
IP-адреса 211.115.61.154 и 211.115.59.137
k = 9

Answer 2

не определяет

Answer 3

Вместо букв считались цифры, сейчас исправлено.