Question

решите уравнение y=(ad+bc)/bd с помощью паскаля (программа для решения уравнения)

Answer 1

Программа на PascalABC.NET:

var a, d, b, c: integer;

begin

writeln('Введите по очереди значения a, d, b, c: ');

readln(a, d, b, c);

if (b = 0) or (d = 0) then writeln('На 0 делить нельзя!')

else

writeln('y = ', (a*d + b*c) / (b*d))

end.