Размещено 5 лет назад по предмету
Информатика
от kovtuniryna
Домашнє завдання Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу доку procedure TForm1.Button1Click(Sender: TObject); var a,b,c, i:integer; begin ListBox1.Clear; for i:=100 to 999 do Begin а:=i div 100; b:=i mod 100 div 10; c:=i mod 10; if i=a*a*a + b*b*b + c**с then ListBox1.Items.Add(IntToStr(i)); End; end; 153, 370, 371, 407