Question

Дано целое трехзначное число a. получить утроенное значение числа, состоящего из цифр числа a, записанных в неубывающем порядке. входные данные: во входном потоке записано единственное целое трехзначное число a. выходные данные: в выходной поток вывести единственное целое число. пример входного файла (input.txt): 748 пример выходного файла (output.txt): 1434

Answer 1

uses crt;
var i,j,n:integer;
a:string;
t:char;
begin
read(a);
for i:=1 to length(a) do
for j:=1 to length(a)-i do
if a[j]>a[j+1] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
writeln(3*strtoint(a)); 
end.

Answer 2

Uses crt;
var a,b,q,i:integer;
    x: array [1..3] of integer;
    input,output:text;
begin
     assign(input,'input.txt');
     assign(output,'output.txt');
     reset(input);
     readln(input,a);
     x[1]:=a mod 10;
     x[2]:=a div 10 mod 10;
     x[3]:=a div 100;
     for i:=2 to 3 do
         if x[i]<x[i-1] then begin
            q:=x[i];
            x[i]:=x[i-1];
            x[i-1]:=q;
         end;
     b:=100*x[1]+10*x[2]+x[3];
     writeln(output,3*b);
     close(input);
     close(output);
end.