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

Question

Информатика

Митяша

28 мая, 18:15

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

+3

Ответы (1)

Знаете ответ?

Галюха · Answer 1

var a, b:integer;

sum, raz, pr, ch: real;

begin

readln (a) ; readln (b) ;

sum: = abs (a) + abs (b) ;

raz: = abs (a) - abs (b) ;

pr: = abs (a) * abs (b) ;

ch: = abs (a) / abs (b) ;

writeln (sum, raz, pr, ch) ;

end.