В заданной строке подсчитать количество букв латинского алфавита

@Galaxyanin · Регистрация: 10.12.2014

Author24 — интернет-сервис помощи студентам

Такое условие задания :
В заданной строке подсчитать количество букв латинского алфавита.

у меня чудесное чувство, что все здесь не то, что надо. Ну да ладно, что есть.
Пишет ошибку, связанную с ord(x[i])

Pascal

var
i,sum:integer;
x:char;
begin
sum:=0;
 
  write('введите строку...');
  readln(x);
    for i:=1 to length(x) do
      if (ord(x[i])>=65) and (ord(x[i])<=90) and (ord(x[i]>=97) and (ord(x[i])<=122))
        then
        
        sum:=sum+1;
 writeln('sum=', sum);
end.

спасибо.

@Joy · 10.12.2014, 05:41

чуть поправил:

Pascal

var
i,sum:integer;
x:string;{тип string вместо char}
begin
sum:=0;
write('введите строку...');
readln(x);
for i:=1 to length(x) do
if ((ord(x[i])>=65) and (ord(x[i])<=90)) 
or {должен быть или вместо и} 
((ord(x[i])>=97) and (ord(x[i])<=122)){со скобками напутали}
then sum:=sum+1;
writeln('sum=', sum);
end.

Добавлено через 2 минуты
а можно было и так записать:

Pascal

1	for i:=1 to length(x) do if x[i] in ['a'..'z','A'..'Z'] then sum:=sum+1;

@Galaxyanin · 11.12.2014, 22:56 **[ТС]**

Спасибо за разбор ошибок!
Теперь и в задании, и в мозгах стало все на свои места.
Очень помогли

@Galaxyanin 0 / 0 / 0 Регистрация: 10.12.2014 Сообщений: 10
	11.12.2014, 22:56 [ТС]	3
	Спасибо за разбор ошибок! Теперь и в задании, и в мозгах стало все на свои места. Очень помогли 0