Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа. (pascal)

Question

Информатика

Федорыч

24 февраля, 19:07

Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа. (pascal)

+5

Ответы (1)

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

Каллиопий · Answer 1

uses crt;

var i, s, a, b:integer;

begin

for i:=10 to 99 do

begin

a:=i div 10;

b:=i mod 10;

s:=a+b;

if s*s*s = sqr (i) then writeln (i) ;

end;

readln;

end.