Question

Дано трёх значное число . Определить,равен ли квадрат числа сумме кубов его цифр

Answer 1

Ответ: среда PascalАВС.NЕТ

## uses School;

var n := ReadInteger;

if Sqr(n) = n.Digits.Sum(d -> d * d * d) then Print('Да')

else Print('Нет')