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

Question

Информатика

Куприян

21 августа, 14:44

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

+5

Ответы (1)

Знаете ответ на вопрос?

Леопольд · Answer 1

Var numb, sot, des, ed:integer;

begin

readln (numb) ;

sot: = numb div 100;

des:=numb mod 100;

des: = des div 10;

ed:=numb mod 10;

if sqr (numb) = sqr (sot+des+ed) * (sot+des+ed) then

writeln ('Yes')

else

writeln ('No') ;

end.