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

Question

Информатика

Ангелина

14 июля, 10:41

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

+3

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