Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу
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;
ответ:Можно управлять чем-то вручную, а можно запрограммировать и надеяться, что все сработает как надо. В быту широко используется программное управление для выполнения стандартных операций. Например выбор режим стирки в стиральной машине. При выборе того или иного режима активируется соответствующая программа и удобно.
Точно также производится готовка в мультиварке. Но когда требуется сделать что-то, чего не учитывает программа, делать приходится вручную.
При всей универсальности программа не может учесть всего. Всегда приходится что-то корректировать. Поэтому на практике приходится прибегать к обоим методам. Особенно, когда ручное управление затруднено. Так происходит, например при управлении марсоходом. Радиосигнал идет довольно долго и порулить" марсоходом с земли в реальном времени не получится. Приходится отправлять блок команд и принимать сигнал о их выполнении.
В общем, вручную безусловно лучше, но не всегда возможно.