1 solutions

  • 0
    @ 2025-11-5 16:02:13

    Pascal :

    var
    m:integer;
    begin
    readln(m);
    case m of
    1:write('Monday');
    2:write('Tuesday');
    3:write('Wednesday');
    4:write('Thursday');
    5:write('Friday');
    6:write('Saturday');
    7:write('Sunday');
    end;
    end.
    
    • 1

    Information

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