строки, Паскаль

[Dean]

здравствуйте, уважаемые программисты! можно ли попросить Вас о помощи в решении одной задачки? в общем, вот условие:
написать программу, определяющую количество символов латинского алфавита в предложении.
кто чем сможет, пожалуйста...

[Alt]

var
i: integer;
str: string;
count: integer;
begin
...
count:=0;
for i:=1 to length(str) do
if ((str[i] > 'a') and (str[i] < 'z')) or ((str[i] > 'A') and (str[i] < 'Z'))
inc(count);

...
end.

[Dean]

Alt, я так понимаю, вместо Ваших многоточий нужно ввести и вывести строку? Но Паскаль не воспринимает Ваш код почему-то, пишет, что выражение неверное.

[Dean]

в общем, дописал Вашу программу примерно вот так:

var
i: integer;
str: string;
count: integer;
begin
Writeln('Введите строку');
Readln(str);
count:=0;
for i:=1 to length(str) do
if ((str[i] > 'a') and (str[i] < 'z')) or ((str[i] > 'A') and (str[i] < 'Z'));
inc(count);
Writeln('Кол-во латинских букв в предложении=',count);
Readln;
end.

но она не работает. Паскаль почему-то пишет, что выражение неверное.

[Alt]

а... Точку с запятой после него зачем-то вы поставили, вот и не работает. А я там then пропустил, мой косяк

[Dean]

Сообщение от Alt

а... Точку с запятой после него зачем-то вы поставили, вот и не работает.

аа, ну это я случайно. пробовал так, ибо без точки с запятой она тоже не работает!

[Alt]

аа, ну это я случайно. пробовал так, ибо без точки с запятой она тоже не работает!

Да. Поставтье там then. Я после целого дня разбора сишного кода уже забыл про то, что там then ставится.

[Dean]

Сообщение от Alt

Да. Поставтье там then. Я после целого дня разбора сишного кода уже забыл про то, что там then ставится.

:
вот это да, а я компилировал, и даже не заметил. кошмар! спасибо Вам большое!

[Dean]

а могу ли Вас так ненавязчиво попросить еще с одной программкой помочь?
задана квадратная матрица У(5,5). Определить, где больше четных элементов: выше или ниже главной диагонали.
для Вас - раз плюнуть, а вот до меня не доходит...

[Alt]

Да, задача простая. Только вот одно задание - одна тема.