Помогите пожалуйста! Pascal.
Использование массивов, строк, условных операторов не допускается
С клавиатуры вводится шестизначное число, определить является ли оно счастливым. Т.е. сумма первых трех цифр равна сумме второй тройки цифр. Если да - вывести `1`, если нет - `0`. (Воспользоваться тем, что `0` делится на любое число).
Использование массивов, строк, условных операторов не допускается
С клавиатуры вводится шестизначное число, определить является ли оно счастливым. Т.е. сумма первых трех цифр равна сумме второй тройки цифр. Если да - вывести `1`, если нет - `0`. (Воспользоваться тем, что `0` делится на любое число).
More Questions From This User See All
Answers & Comments
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.