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

0 голосов
48 просмотров

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


Информатика (12 баллов) | 48 просмотров
0

Паскаль

0

Ну что ?

0

Не поможете ?

0

Помогу

0

В течении часа. Не срочно же :)

0

Хорошо жду спасибо !

0

просто хотелось бы как можно скорее я в этом ничего не понимаю брату надо

0

Постараюсь

0

Спасибо )

0

большое спасибо

Дан 1 ответ
0 голосов

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.

(374 баллов)