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

    Всего: 1

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

    +128

    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
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    program st1r;
uses crt;
var
st:string;
n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,i:integer;
begin
clrscr;
n0:=0; n1:=0; n2:=0; n3:=0; n4:=0;
n5:=0; n6:=0; n7:=0; n8:=0; n9:=0;
Write('Введите строку, состоящую из цифр: ');
Readln (st);
for i:=1 to length (st) do
begin
if Pos('0',st[i])<>0 then n0:=n0+1;
if Pos('1',st[i])<>0 then n1:=n1+1;
if Pos('2',st[i])<>0 then n2:=n2+1;
if Pos('3',st[i])<>0 then n3:=n3+1;
if Pos('4',st[i])<>0 then n4:=n4+1;
if Pos('5',st[i])<>0 then n5:=n5+1;
if Pos('6',st[i])<>0 then n6:=n6+1;
if Pos('7',st[i])<>0 then n7:=n7+1;
if Pos('8',st[i])<>0 then n8:=n8+1;
if Pos('9',st[i])<>0 then n9:=n9+1;
end;

Writeln ('Количество вхождений в строку из цифр ',st);
Writeln ('0: ',n0);
Writeln ('1: ',n1);
Writeln ('2: ',n2);
Writeln ('3: ',n3);
Writeln ('4: ',n4);
Writeln ('5: ',n5);
Writeln ('6: ',n6);
Writeln ('7: ',n7);
Writeln ('8: ',n8);
Writeln ('9: ',n9);
readln(st);
end.

    студенту было дано задание: "Для каждой цифры '0', '1', ... '9' подсчитать количество их вхождений в строку S".

    shipushek, 06 Апреля 2015

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