Помогите решить ) Begin11°(В №3). Даны два ненулевых числа. Найти сумму, разность,...

0 голосов
46 просмотров
Помогите решить )
Begin11°(В №3). Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
Входные данные: ввести два целых числа а и b (1<=a,b<=100).</span>Выходные данные: вывести сумму, разность, произведение и частное их модулей с точностью до 3 цифр в дробной части в разных строках.

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

Язык программирования какой?

0

паскаль

Дано ответов: 2
0 голосов
Правильный ответ

Pascal
var a,b,S,R,P,CH:real;
beginwriteln('Введите два числа');
readln (a,b);
S:=abs(a) + abs(b);
R:=abs(a)- abs(b);
P:=abs(a) * abs(b);
CH:=abs(a)/abs(b);
writeln (S);
writeln (R);
writeln (P);
writeln (CH:3:2);
end.

(2.7k баллов)
0 голосов

#include
#include
#include
using namespace std;

int main()
{
    int a,b;
    cin >> a >> b;
    int ma = abs(a), mb = abs(b);
    cout <<ma-mb <<endl<br>           <<ma+mb <<endl<br>           <<ma*mb <<endl<br>           <<fixed <<setprecision(3) <<float(ma)/mb <<endl;<br>    return 0;
}

(2.8k баллов)