составить программу решающую уравнение вида A/X+B=C, числа A,B,C вводятся с клавиатуры, результатом программы явлю X выводящий строки с точностью до 4 знаков после запятой. паскаль

1

Ответы и объяснения

2012-12-18T18:14:38+04:00

Program Program1;
Var
A,B,C,X:real;
begin
randomize;
writeln('Веедите значение A:');
readln(A);
writeln('Веедите значение B:');
readln(B);
writeln('Веедите значение C:');
readln(C);
X:=A/(C-B);
writeln;
writeln('X=',X:0:4);
end.