Урок 3 задача 4, Pascal

Language: Layout:

{
Урок 3 задача 4. (1474). Сумма цифр четырехзначного числа
Определите, является ли не более чем четырехзначное число k симметричным 
(например, числа 1331 или 550 являются симметричными, для последнего из них считается, 
что это четырехзначное число с ведущим нулем).
Входные данные. На вход программе подается целое число k (0 ≤ k ≤ 9999).
Выходные данные. Выдайте 1 при положительном ответе на вопрос задачи и любое другое целое число — в противном случае.
Примеры. Входные данные: 2008.
Выходные данные: 7
Входные данные: 2002
Выходные данные: 1
}

var y, x, a3, a4 : integer;

begin
    readln (x); // считываем число
    a4 := x mod 10; // определяем правую цифру
    a3 := x div 10 mod 10; // определеяем третью слева цифру
    y := 10 * a4 + a3; // получаем число из двух цифр, поменяв местами их место в разрядах
    x :=  x div 100; // делим число на 100, чтобы получить число, состоящее из двух левых цифр
    writeln( x, ' ', y ); // выводим эти два числа (не обязательная операция)
    writeln (x - y + 1); // если полученные два числа совпадают, то выводим 1 иначе - другое число
    
    // можно обойтись без промежуточных переменных, написав срвзу после readln(x) (ввода числа) выражение
    // writeln( x mod 10 * 10  + x div 10 mod 10 - x div 100 + 1 ); 
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.24 sec, absolute running time: 0.33 sec, cpu time: 0.1 sec, memory peak: 3 Mb, absolute service time: 0,67 sec