X=(2000/30)*12
x=66,6666666666667*12
x=800
Ответ:
5
Объяснение:
a = 12;
b = 8 + a / 2; (b=8+12/2=14)
a = a – b / 2 (а=12-14/2=5)
Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667
Ну вот, полное решение твоего задания.