Помогите пожалуйста.Дано целое трехзначное число 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]
Не нашли ответ?
Похожие вопросы