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

    +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
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    Program n_g;
uses crt;
Var c:char; st:string[50]; k: byte;
BEGIN  clrscr;
k:=255;
Write('Vvedite tekst:');
read(c);
Repeat
      While(c=' ') and (c<>#13 Do Read(c);
      	st:='';
      While(c<>' ') and (c<>#13 Do	 Begin
      	st:=st+c;
      	Read(c);			 End;
      WriteLn('st=',st);
      If ord(st[0])<k Then k:=ord(st[0]);
Until c=#13;
WriteLn('k= ',k:3); readLn   
END.

    Так физматы находят длинну самого короткого слова

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

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

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