1 solutions

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

    Pascal :

    var
    a,b,c,d,e:longint;
    begin
    readln(a,b,c);
    for d:=1 to 2 do
    if a<b then begin e:=b;a:=c;end;
    if a>b then e:=a;
    write(e);
    end.
    
    • 1

    Information

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