Задание:
Заданы значения a и b. Составить прогрвмму с помощью которой вычислить значение функции a+b R=- a-bдля допустимых значений переменной.
Решение:
Uses crt; var a,b,r: real; beginwriteln ('введите a и b'); readln (a); readln (b); if a-b=0 then writeln ('ошибка, введите другие значения'); if a-b<>0 then begin r: =(a+b) / (a-b); writeln ('r=',r: 6:4); end; readkey; end.
Знаете другой ответ?