Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 27.09.2020, 11:59Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0519 Наименьшее и наибольшее числа из тех же цифр

Скачать файл можно после просмотра рекламы:

05.06.2012, 03:20
var f1,f2:text;
n,b,j,k,i:integer;
a:array [0..11] of integer;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);

while(n>0) do
     begin
     b:=n mod 10;
     inc(a[b]);
     n:=n div 10;
     end;
     a[11]:=a[0];
for i:=1 to 10 do
    begin
    for j:=1 to a[i] do
        begin
        write(f2,i);
        if(a[0]<>0)then
             for k:=1 to a[0] do
                   begin
                   write(f2,'0');
                   a[0]:=a[0]-1;
                   end;
        end;
    end;
    a[0]:=a[11];
    write(f2,' ');
for i:=10 downto 0 do
    begin
    if(a[i]<>0) then
         for j:=1 to a[i] do
         begin
             write(f2,i);
         end;
    a[i]:=a[i]-1;
    end;
close(f1);
close(f2);
end.

Категория: Pascal | Добавил: shum
Просмотров: 1690 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020