1 solutions

  • 0
    @ 2025-11-5 15:38:49

    Pascal :

    var i:integer;
    begin
        read(i);
        case i of
            91..100:write('A');
            71..90:write('B');
            60..70:write('C');
            0..59:write('D');
        end;
    end.
    
    • 1

    Information

    ID
    16996
    Time
    1000ms
    Memory
    128MiB
    Difficulty
    (None)
    Tags
    # Submissions
    0
    Accepted
    0
    Uploaded By