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

    +123

    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
    var
     a,b,c:real;
    begin
     read(a,b,c);
     if a<b then
     If b>a then
     If b>c then
     If c<b then
     Write('max - ',b);
    if b<a then
     If a>b then
     If a>c then
     If c<a then
     Writae('max - ',a);
    if a<c then
     If c>a then
     If c>b then
     If c<b then
     Write('max - ',c);
    Readln;
    End.

    Нахождение максимального значения из 3 чисел, бля.

    Запостил: KATAJIU3ATOP, 01 Мая 2011

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

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