– Это совсем не важно, капитан. Мы дали ему все, что необходимо… В любом случае всегда лучше предложить чуть–чуть меньше, чем чуть–чуть больше. Некоторые автоматически подвергают сомнению чересчур открытую информацию.
Гранд адмирал Траун в разговоре с Пеллаэоном. Тимоти Зан, Трилогия Трауна
Сколько глобус ни крути, там Fess-Style не найти...
Сайт Fess'a » Перевернуть трёхзначное число - Форум
Дата: Понедельник, 08.04.2013, 14:53 | Сообщение # 1
Добрый админ
Сообщений: 2339
Статус:
Простая, но интересная программа, которая будет переворачивать числа, например 123 -> 321. Написана под трёхзначные, но легко можно переписать под четырёхзначные или любые другие.
Код
program num_revert; Var Number, i, j, k: integer; Label 1; begin Write( 'Введите 3-х значное число : ' ); 1:ReadLn(Number);
if (Number < 100) OR (Number > 999) then begin writeln('Неверное число, попробуйте снова'); GoTo 1 end;
Number:=Abs(Number);
Write( 'Цифры числа ' , Number , ' : ' ); i := Number div 100; j := Number div 10 mod 10; k := Number div 1 mod 10;
Дата: Понедельник, 03.06.2013, 21:42 | Сообщение # 3
Добрый админ
Сообщений: 2339
Статус:
Цитата (DarthVader)
Хм... А если Number сделать строкой, а не числом, то всю программу можно записать так:
Код
Код for i:=length(Number) downto 1 do write(Number[i]);
Уважаемый DarthVader, классная идея! Я когда писал этот скрипт ещё не изучал работу со строками) И твой метод более универсален и подойдет для числа любой длины, а не только трёхзначного)