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

Question

Информатика

Олдама

24 июля, 10:37

Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа. (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.