1. Pascal / Говнокод #8367

    +100

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    {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);

    Необходимо создать текстовый файл, содержащий исходную программу, а также подсчитать длину созданного файла.
    http://ithappens.ru/story/7652

    Запостил: d_dev, 31 Октября 2011

    Комментарии (4) RSS

    Добавить комментарий