Begin11. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program Begin11; var a,b,Sum,Difference, Product, Quotient: Real; begin Write('Введите число a: '); Readln(a); Write('Введите число b: '); Readln(b); Sum:=abs(a)+abs(b); Writeln('Сумма модулей a и b равна: ',Sum); Difference:=abs(a)-abs(b); Str(Difference,TempS); Writeln('Разность модулей a и b равна: ',Difference); Product:=abs(a)*abs(b); Writeln('Произведение модулей a и b равна: ',Product); Quotient:=abs(a)/abs(b); Writeln('Частное модулей a и b равна: ',Quotient); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.НА ПИТОНЕ