1. Список говнокодов пользователя nanovsky

    Всего: 1

  2. Pascal / Говнокод #6505

    +116

    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
    var
        s1:string;
        i:integer;
    const
        m=50;
    begin
        write ('Введите строку: ');
        for i:=1 to m do
            begin
                 write ('s1[',i,']');
                 readln (s1[i]);
            end;
        writeln ('Длина строки: ', length(s1));
    end.

    Это Pascal. Вот так студенты физмата вводят строку, а потом считают ее длину.

    nanovsky, 28 Апреля 2011

    Комментарии (25)