Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Паскале. Begin 38

Begin38. Решить линейное уравнение $A*x+B=0$ , заданное своими коэффициентами A и B (коэффициент A не равен 0).

$x=-B/A$ .

Решение:

program Begin38;
var
  A,B,X: Real;
begin
  Write('Введите коэфициент A: ');
  Readln(A);
  Write('Введите коэфициент B: ');
  Readln(B);
  x:=(-1)*B/A ;
  Writeln('X равен : ',X);
end.

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 можно посмотреть здесь.

Добавить комментарий Отменить ответ

➤