Задание:
Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
Решение:
program xxx; var a, b, s: real; r, p, d: real; begin write ('введите певрое число- '); readln (a); write ('введите второе число- '); readln (b); s: =a+b; r: =a — b; p: =a*b; d: =a/b; writeln ('сумма=', s); writeln ('разность=', r); writeln ('произведение=', p); writeln ('частное=', d); readlnend.
Знаете другой ответ?