Блог учителя Информатики

Решение задачи Begin38


Условие задачи:

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


uses
  PT4;

var
  a, b, x: real;

begin
  Task('Begin38');
  read(a, b);
  x := -b / a;
  write(x);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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