Question

допоможіть написати програму с розгалуженням паскале для задачі с:=(4а+1)/(3b-6)
значень а=3 b=-2​

Answer 1

Ответ:

program PascalCalculator;

var

a, b: integer;

c: real;

begin

// Введення значень a і b

writeln('Введіть значення a:');

readln(a);

writeln('Введіть значення b:');

readln(b);

// Розгалуження: перевірка на ділення на нуль та обчислення виразу

if (3 * b - 6) = 0 then

begin

writeln('Помилка: ділення на нуль!');

end

else

begin

c := (4 * a + 1) / (3 * b - 6);

writeln('Результат обчислення: c = ', c:0:2);

end;

end.