Pascal. Разность между числом и числом записанным теме же цифрами в обратном порядке.
Нужно написать программу на Pascal'е по этой задаче:
Задано трехзначное число "x". Найти разность между этим числом и числом записанном теме же цифрами в обратном порядке.
То есть пользователь вводит трехзначное число, например 123, программа ищет разность между этим числом и числом 321 (обратный порядок цифр первого числа). То есть от числа 123 отнимает 321, и получившийся ответ выводит под модулем. В моём примере должно получиться 198.
Не подумайте что мне это не интересно, и лень решать. Сдавать эту домашнюю работу ещё не скоро, решить пытался но не получилось. Хочется посмотреть на правильное решение. Заранее спасибо.
Jurii, это я и сам понимал. Программа не на столько сложная что бы за неё платить.
Андрей Севастьянов, кажется уж слишком сложный алгоритм.
Все. Додумался как написать самому. Кому интересно:
uses crt;
var x, y, first, second, third, raz:integer;
Begin
ClrScr;
WriteLn('Введите трехзначное число');
Readln(x);
first:=x div 100;
second:=(x div 10 mod 10)*10;
third:=(x mod 10)*100;
y:=third+second+first;
raz:=abs(x-y);
WriteLn('Разность чисел ',x,' и ',y,' равна ',raz);
Readln();
End.
Легко:
var X : Word;
begin
Write('Введите натуральное число (до 65 535) : '); ReadLn(X);
WriteLn(X, ' - ', Inverse(X), ' = ', X-Inverse(X));
end.
… где функция Inverse — пара строчек, но «интеллектуальная собственность» , а значит не бесплатно ;-)
Тема такая: число вводится и хранится в виде трёх значений типа char. Вы пишете процедурку, которая берёт две цифры и заём и вычитает одну из другой столбиком.