CLS
INPUT "h = ", h
FOR x = -1 TO 1 STEP h
PRINT "f("; x; ") = ", COS(x) - 1
NEXT x
END
Пример работы программы:
h = 0.5
f(-1 ) = -.4596977
f(-.5 ) = -.1224174
f( 0 ) = 0
f( .5 ) = -.1224174
f( 1 ) = -.4596977
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
Просто подбираеш по логике числа например 2 4 6 8 или 4 8 12 16 20 или 22 44 66 88