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

Question

Информатика

Грета

5 февраля, 00:17

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

+5

Ответы (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.