2. минимальное число из цифр
ограничение времени 1 секунда
ограничение памяти 256mb
ввод стандартный ввод или input.txt
вывод стандартный вывод или output.txt
даны 2 натуральных числа: a и b. рассмотрим их сумму: s = a + b. какое минимальное число можно получить путём перестановки цифр десятичной записи числа s, так, чтобы при этом получалась корректная десятичная запись числа?
формат ввода
в единственной строке входного файла записаны два натуральных числа через пробел в указанном порядке: a и b (1 ≤ a, b ≤
формат вывода
в выходной файл программа должна вывести единственное число: ответ в .
пример 1
ввод вывод
10 11
12
пример 2
ввод вывод
20 30
50
. напишите код на паскаль абс
NadiushaSpermiulina
3
02.10.2019 13:27
7
Другие вопросы по теме Информатика
zanna82
10.01.2020 16:54
Nikitos31055
10.01.2020 17:07
tanyatomeva81
10.01.2020 17:09
andrey43201
17.09.2019 14:50
fooorl
27.06.2019 09:00
antoxor
27.06.2019 09:00
5656grey6767
27.06.2019 09:00
Катюня85
27.01.2021 15:45
Популярные вопросы
- Что схожего и различного между колониальными жгутиконосцами и кишечнополостными?...
2 - Сколько будут 890: 7= ответ нужен 20.04.17....
2 - Не большое и не малое сочинение на тему мой первый учитель...
3 - Дано: fe+o2=fe3o4 fe=28г найти массу fe3o4...
2 - Напишите письмо как я буду проводить летние каникулы (на )...
3 - Найдите длину вектора cd если c(0; 0; 2) и d(2; 2; 0)...
2 - Расставить слова в нужном порядке и записать вопросы. i,open,may,window,the?...
2 - Сочинить басню про кошку в клетке и мышей ( мораль ,, отольются кошке мышкины...
2 - Геракл совершил 12 подвигов. 1)геракл задушил громадного немейского льва....
1 - Пример натурального числа, большего 15, которое делиться на 15 и не делиться...
1
type z=array of byte;
var i,a,b,s: integer;
digits: z;
f: text;
begin
assign(f,'input.txt');
reset(f);
read(f,a);
read(f,b);
close(f);
s:=a+b;
i:=0;
while(s>0) do
begin
setlength(digits,i+1);
digits[i]:=s mod 10;
s:=s div 10;
i:=i+1;
end;
for i:=0 to length(digits)-2 do
for b:=0 to length(digits)-i-2 do
if (digits[b] > digits[b+1]) then
begin
a:= digits[b];
digits[b] := digits[b+1];
digits[b+1] := a;
end;
if(digits[0]=0) then for i:=0 to length(digits)-1 do
if(digits[i]<>0) then
begin
digits[0]:=digits[i];
digits[i]:=0;
break;
end;
assign(f,'output.txt');
rewrite(f);
for i:=0 to length(digits)-1 do write(f,digits[i]);
close(f);
end.