В первом переменная a будет равна 4
Во втором переменная b будет равна 48
Var y,k:real;
Begin
Write('y = ');ReadLn(y);
if y > 0 then k:=y*y/2
else k-:=Abs(1.5*y*y);
WriteLn('k = ',k);
End.
В 1 килобайте- 8 192 бит
в 1 мегабайте-8 288 608 бит
в 1 гигабайте-8 589 934 592 бит
В чем вопрос я понять не могу???
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.