Информатика, опубликовано 2018-08-22 23:48:55 by Гость
Написать програму к задачам 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на