Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа.(pascal)
Найдите двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа.(pascal)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы