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

    +147

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Procedure ks(s:string;q:char; var k:byte);
    var i:byte;
Begin
k:=0;
For i:=1 To Length(s) Do
   If s[i]=q Then inc(k);
End;

    Гавно код

    Запостил: megaruliz, 07 Мая 2011

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

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