Question

Даны два действительных числа. Найти сумму их модулей, разность их квадратов и произведение их кубов помогите пожалуйста !

Answer 1

Program Easy;

var

   input1,input2: integer;

   

begin

 write('введите 1-е число: ');

 readln(input1);

 write('введите 2-у число: ');

 readln(input2);

 writeln('сумма модулей ', input1,' и ',input2,' = ', abs(input1) + abs(input2));

 writeln('разность квадратов ', input1,' и ',input2,' = ', sqr(input1) - sqr(input2));

 writeln('произведение кубов ', input1,' и ',input2,' = ', (input1 * input1 * input1) * (input2 * input2 * input2));

 readln;

end.

Проверял в PascalABC.NET StandardPack.