Среди всех трёхзначных чисел (отрицательных и положительных) найти и выписать на экран те, у которых произведение крайних цифр совпадает с кубом средней цифры.

Var i, c:integer;

begin

for i:=100 to 999 do

begin

c:=i div 10 mod 10;

if (i div 100) * (i mod 10) = c*c*c then writeln (-i,' ', i) ;

end;

end.

Результат:

-100 100

-111 111

-128 128

-200 200

-224 224

-300 300

-339 339

-400 400

-422 422

-500 500

-600 600

-700 700

-800 800

-821 821

-848 848

-900 900

-933 933