Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.

Question

Информатика

Сергуна

5 августа, 08:41

Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.

+2

Ответы (1)

Знаете ответ?

Герма · Answer 1

Var

a, b, k:byte;

n:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

k:=0;

For a: = 1 to 9 do

For b: = 0 to 9 do

if a*a*a+b*b*b = n then

Begin

Write (a, b,' ') ;

k:=k+1

End;

if k = 0 then Write ('Таких чисел не существует.')

End.