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

Помогите пожалуйста. Дано целое трехзначное число a. Получить утроенное значение числа, состоящего из цифр числа a, записанных в неубывающем порядке. Входные данные:Во входном потоке записано единственное целое трехзначное число a. Выходные данные:В выходной поток вывести единственное целое число. Пример входного файла (input.txt):748 Пример выходного файла (output.txt):1434
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы