fork download
  1. program returnMin;
  2. var
  3. i: byte;
  4. q: byte;
  5. a: word;
  6. t: word;
  7. num:array[1..3] of word;
  8.  
  9. procedure swap(var x, y: word);
  10. var temp: word;
  11. begin
  12. temp := x;
  13. x := y;
  14. y := temp;
  15. end;
  16.  
  17. begin
  18. t:=100;
  19. readln(a);
  20. if (a<100) or (a>999) then writeln('Nepravylne chyslo')
  21. else
  22. for i:=1 to 3 do begin
  23. num[i] := (trunc(a/t) - trunc(a/(t*10))*10); t := trunc(t/10); end;
  24. if num[2]>num[3] then swap(num[2], num[3]);
  25. if num[1]>num[2] then swap(num[1], num[2]);
  26. if num[2]>num[3] then swap(num[2], num[3]);
  27. writeln(num[1]*100+num[2]*10+num[3]);
  28. end.
Success #stdin #stdout 0s 5284KB
stdin
210
stdout
12