Begin38. Решить линейное уравнение $$A*x+B=0$$, заданное своими коэффициентами A и B (коэффициент A не равен 0).
$$ x=-B/A$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 |
program Begin38; var A,B,X: Real; begin Write('Введите коэфициент A: '); Readln(A); Write('Введите коэфициент B: '); Readln(B); x:=(-1)*B/A ; Writeln('X равен : ',X); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: