Question

Побудуйте математичну модель і напишіть проєкт для обчислення значення виразу (3 * a – b) * (a + 2 * b). В програмі Lazarus. 50 балов

Answer 1

program Math;

var

 a, b, result: Real;

begin

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

 Readln(a);

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

 Readln(b);

 result := (3 * a - b) * (a + 2 * b);

 Writeln('Результат: ', result);

end.