Question

Помогите пожалуйста! Pascal.

Использование массивов, строк, условных операторов не допускается


С клавиатуры вводится шестизначное число, определить является ли оно счастливым. Т.е. сумма первых трех цифр равна сумме второй тройки цифр. Если да - вывести `1`, если нет - `0`. (Воспользоваться тем, что `0` делится на любое число).

Answer 1

var n: int64;

begin

   read(n);

   write(ord(n div 100000 + n div 10000 mod 10 + n div 1000 mod 10 = n div 100 mod 10 + n div 10 mod 10 + n mod 10));

end.