Урок 2 задача не из учебника: 4-значное число, Pascal

Урок 2 задача не из учебника: 4-значное число

{
Урок 2 задача не из учебника. Обратное 4-значное числао
Напишите программу вывода четырёхзначного числа в обратном порядке.
Допишите программу расчёта разницы исходного числа и его обратного представления.
Пример.
Входные данные: 5710
Выходные данные 0175
Разница (5710 - 0175) = 5535
}
var 
    x,                 // четырёхзначное число
    a, b, c, d            // цифры числа
            : integer;
begin
    writeln ('Введите четырёхзначное число:');
    readln ( x );
    writeln( x );
    a := x div 1000;       // левая цифра числа
    b := x div 100 mod 10; // вторая слева цифра числа
    c := x div 10 mod 10;  // третья слева цифра числа
    d := x mod 10;         // правая цифра числа
    // writeln( a, b, c, d ); - этот оператор показывает цифры числа, например при вводе 1 
    // будет выведена последовательность цифр 0001. 
    writeln(d, c, b, a );  // здесь выводим именно цифры, а не число! Без пробела цифры сливаются
                           // и мы воспринимаем это как число, но это последовательность цифр
    // а теперь нужно найти разницу введённого числа и полученного:
    a := 1000 * d + 100 * c + 10 * b + a;
    x := x - a;
    writeln ( x );
end.


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development