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

    +147

    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
    Program n_a;
uses crt;
Var c:char; k: byte;
BEGIN
clrscr; k:=0;
Write(‘Введите текст:'); read(c);
Repeat
      While(c=' ') and Not eoln Do 	                    		Read(c);
      	inc(k);
      While(c<>' ') and Not eoln Do 	                    		Read(c);
Until eoln;
WriteLn('k= ',k:3);
END.

    так физматы находят сколько слов в тексте

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

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

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