Помогите пожалуйста.Дано целое трехзначное число a. Получить утроенное значение числа,...

Question

Помогите пожалуйста.
Дано целое трехзначное число a. Получить утроенное значение числа, состоящего из цифр числа a, записанных в неубывающем порядке.

Входные данные:Во входном потоке записано единственное целое трехзначное число a.
Выходные данные:В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):748
Пример выходного файла (output.txt):1434

Answer 1

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]            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.    

Comments

файлы либо создать заранее и прописать путь, либо заменить reset на rewrite

Answer 2

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.