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

Question

Информатика

Татиана

26 декабря, 01:33

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

+3

Ответы (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.