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

    +90

    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
    Uses CRT;
const
     a=10;
     b=21;
     c=30;
Var
   max: integer;
Begin
     if (a>b) then
              if (a>c) then
                 begin
                   max:=a;
                 end
              else max:=c;
     if (b>a)then
             if (b>c)then
                      max:=b
             else
               max:=c;
Writeln(max);
if (max mod 5 = 0 ) then
   writeln ('Кратное')
else writeln('некратное');
   
End.

    Запостил: Juris_Kabanis, 30 Марта 2011

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

    • ava Juris_Kabanis 30.03.2011 23:36 # −3

      Определить большее из трех чисел и вывести на экран сообщение кратно ли это число 5?
      Ответить

    • ava bugmenot 31.03.2011 01:53 # 0

      uses Crt чтобы с непатченной RTL не работало?
      Ответить

    • ava guest 02.04.2011 10:34 # 0

      а если a равно b ?
      Ответить

    • ava KATAJIU3ATOP 01.05.2011 21:18 # +1

      Хотя б read(a,b,c) использовал, и a, b, c обьявил как переменные, а не константы.
      Ответить

      • ava CO3HAHUE 11.12.2011 21:03 # 0

        Угу, достаточно следующей строчки:

        writeln ('Кратное');

        Но это очень сложная для понимания программа.
        Ответить

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