СПАСИБООО ПОМОГЛО
помагите информатичка задолбала прога нужна но я сам хочу написать
кароче КВАДРАТНОЕ УРАВНЕНИЕ
program z;
Var a,b,d,c,e,f,:integer;
begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
e:=((b*b)-(sqrt(d)))/(2*a); типа первое значение икс
f:=((b*b)+(sqrt(d)))/(2*a); типа второе
writeln (e);
writeln (f);
happy end.
исправьте ошибку плиз неработает неверное значение неверное выражение неверная структура блин!!!!!!!!!!!!!!!!!!!!!!!!
|