Среди всех трезначных чисел найти числа для которых верно утверждение :сумма кубов цифр этого числа равна самому числу.
Составить Паскаль программу

а можно полегче?я в 8 классе ,поймут что списанно

Попробую...

спасибо)

1. Современный вариант// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var pow3:integer->integer:=n->n*n*n;  var Good:integer->boolean:=n->(pow3(n div 100)+  pow3((n div 10) mod 10)+pow3(n mod 10))=n;  Range(100,999).Where(x->Good(x)).Printend.Результат:153 370 371 4072. Школьный вариант// PascalABC.NET 3.1, сборка 1218 от 12.04.2016var  i,n,d100,d10,d1:integer;begin  for i:=100 to 999 do begin    d100:=i div 100;    d10:=(i div 10) mod 10;    d1:=i mod 10;    if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then      Write(i,' ')    end;end.