#7652: Смотрите все: я знаю алфавит!

Сижу на одном программистском форуме, помогаю студентам решать задачи на Паскале. Я честно не знаю, что бы я делал без этих дорогих индусов. Наверное, умер бы от скуки. Вот последняя жемчужина.

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

{Podschet dlini}
Reset(f1);
kol:=0;
while not eof(f1) do begin
readln(f1,l);
For i1:=1 to length(l) do if (l[i]='a')or(l[i]='A') or (l[i]='b')or(l[i]='B')
or(l[i]='c')or(l[i]='C')or(l[i]=' ')or(l[i]='d')or(l[i]='D')
or(l[i]='e')or (l[i]='E') or(l[i]='f') or(l[i]='F')
or (l[i]='g')or (l[i]='G') or (l[i]='h')or(l[i]='H')
or(l[i]='i')or(l[i]='I')or(l[i]='J')or(l[i]='j')
or(l[i]='k')or(l[i]='K')or(l[i]='l')or(l[i]='L')
or (l[i]='m')or (l[i]='M')or(l[i]='n')or(l[i]='N')
or (l[i]='o')or(l[i]='O')or(l[i]='p')or(l[i]='P')
or(l[i]='q')or(l[i]='Q')or (l[i]='r')or (l[i]='R')
or(l[i]='S')or(l[i]='s')or(l[i]='t')or(l[i]='T')
or(l[i]='v')or(l[i]='V') or(l[i]='w')or(l[i]='W')
or(l[i]='u')or(l[i]='U')or(l[i]='x')or(l[i]='X')
or(l[i]='y')or(l[i]='Y')or (l[i]='z')or(l[i]='Z') then
kol:=kol+1;
end;
WriteLn('kol=',kol);

Правильно ли? И каким ещё образом можно подсчитать длину?

Комментарий:

Ещё интересное на этом сайте:

#7651: Бьём в одну точку
#7650: В далёкой-далёкой галактике, в большом-большом театре
Анекдот дня по итогам голосования за 30 октября 2011
Афоризм дня по итогам голосования за 30 октября 2011
Анекдоты и картинки #8628316
Анекдоты и картинки #8628315
Анекдоты и картинки #8628314
Анекдоты и картинки #8628313
Дрова теперь и в Питере!
Аццкий отжиг был вчера в Москве (4 видео)
Прикольные шоты (60 картинок)
Вакуумный насос для губ (4 фото + видео)
Демотиваторы о Челябинске (26 фото)
Факты обо всем на свете (59 картинок)
Комиксы в стиле Fffuuuu (50 картинок)
Смешные комиксы (35 фото)
Девушки припарковались (6 фото)
Мужчины не меняются (3 картинки)
Люди нашей планеты (113 фото)
Ляпы в Китайских фильмах (8 фото)

« все анекдоты и картинки