Question

Напишите программу (paskal)

Answer 1

program p1;
uses crt;
var k:real;
begin
read(k);
k:= -b +sqrt(b) *2- 4*a*c/2*a
write(K);
end.

Answer 2

забыл добавить ешё одну переменную k,b:integer;

Answer 3

k,b,c,a:integer )) вот ))