Предмет: Информатика,
автор: niknik5544841
допоможіть написати програму с розгалуженням паскале для задачі с:=(4а+1)/(3b-6)
значень а=3 b=-2
Ответы
Автор ответа:
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.
Похожие вопросы