Срочно нужна помощь в решении задачи. - Форум
Пятница, 09.12.2016, 06:52
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Срочно нужна помощь в решении задачи.
Срочно нужна помощь в решении задачи.
busterДата: Воскресенье, 14.11.2010, 18:59 | Сообщение # 1
Лейтенант
Группа: Новичок
Сообщений: 14
[ 0 ]
Статус: Offline
Задача по Pascalю. Дано натуральное четырёхзначное число а. Упорядочить цифры числа по возрастанию.
 
XTenДата: Воскресенье, 14.11.2010, 19:21 | Сообщение # 2
Полковник
Группа: Заблокированные
Сообщений: 31
[ 1 ]
Статус: Offline
Пиши реализую
ICQ: 410691984
 
flash1989Дата: Воскресенье, 14.11.2010, 19:32 | Сообщение # 3
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
Пиши, сделаю сейчас
icq: 588002847
email: flash_1989@ukr.net
 
n@styshk@Дата: Воскресенье, 14.11.2010, 20:04 | Сообщение # 4
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
как срочно тебе нужна эта задачка???
 
busterДата: Воскресенье, 14.11.2010, 20:16 | Сообщение # 5
Лейтенант
Группа: Новичок
Сообщений: 14
[ 0 ]
Статус: Offline
сегодня
 
flash1989Дата: Воскресенье, 14.11.2010, 20:44 | Сообщение # 6
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
Code

Uses crt;
var s:string;
      i:byte;
      j:byte;
      obm:char;

begin
   clrscr;
   write('Vvedite chislo: ');
   readln(s);
   for i:=1 to length(s) - 1 do
    for j:=i+1 to length(s) do
     if (s[i] > s[j]) then
      Begin
       obm:=s[i];
       s[i]:=s[j];
       s[j]:=obm;
      End;
   writeln(s);
   readln;
end.

Не забывайте ставить + в репутацию

Сообщение отредактировал flash1989 - Воскресенье, 14.11.2010, 20:44
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Срочно нужна помощь в решении задачи.
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016