Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу
Procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,i:integer;
Begin
ListBox1.Clear;
fori: =100 to 999 do
Begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
if i=a*a*a + b*b*b + c*c*c
then ListBox1.Items.Add(IntToStr(i));
End;
end;

hikkaxxx    1   15.05.2020 00:18    0