Вот код, алгоритм и блоксхему возможно потом добавлю
Объяснение:
program qqq;
var p, a, b, c: integer;
otv: real;
begin
write ('Введите значение a: ');
readln (a);
write ('Введение значение b: ');
readln(b);
write ('Введите значение c: ');
readln(c);
otv:= a+sqrt(b*b - 4 * a * c)/2*b+3*a;
writeln (otv);
end.
Вот код, алгоритм и блоксхему возможно потом добавлю
Объяснение:
program qqq;
var p, a, b, c: integer;
otv: real;
begin
write ('Введите значение a: ');
readln (a);
write ('Введение значение b: ');
readln(b);
write ('Введите значение c: ');
readln(c);
otv:= a+sqrt(b*b - 4 * a * c)/2*b+3*a;
writeln (otv);
end.