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

    0

    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
    uses crt;
    var i,pc2,vc2,tc2,chc2,q,pc,vc,tc,chc,kvt,k,a,b,c,d,t1,t2,t3:integer;
    pc1,vc1,tc1,chc1,n,n1,n2:string;
    begin
    clrscr;
    read (n);
    n1:=n;
    n2:=n;
    a:=pos('.',n)+1;{a-nachalo vtorogo chisla}
    t1:=pos('.',n);
    delete (n,a-1,1);{ybrali iz IP pervuu tochky}
    b:=pos('.',n)+2;{b-nachalo tret'ego chisla}
    t2:=pos('.',n);
    delete (n,b-2,1);{ybrali iz IP vtoruu tochky}
    c:=pos('.',n)+3;{c-nachalo chetvertogo chisla}
    t3:=pos('.',n);
    delete (n,c-3,1);{ybr III tochky}
    pc1:=copy(n2,1,a-2);{str chislo 1}
    vc1:=copy(n2,a,((t2)-(length(pc1)+1))); {str chislo 2}
    q:=t3-length(pc1)-length(vc1)-1;
    tc1:=copy(n2,b,q);
    q:=length(n2)-length(pc1)-length(vc1)-length(tc1);
    chc1:=copy(n2,c,q);
    val (pc1,pc2,d);
    val (vc1,vc2,d);
    val (tc1,tc2,d);
    val (chc1,chc2,d);
    for i:=1 to length(n) do
    begin
    if n2[i]='.' then kvt:=kvt+1;
    if La-La-La
    then
    write ('1')
    else
    write ('0');
    repeat until keypressed;
    end.

    Определяем правильный ли IP-адрес...

    Запостил: Verenick, 28 Мая 2018

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

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