1 solutions

  • 0
    @ 2025-11-5 17:25:47

    Pascal :

    var a:integer;
    begin
      read(a);
    if a>10 then writeln(a*2*0.9:0:1) else writeln(a*2);
    end.
    
    • 1

    Information

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