Const e=0.001;
var x,a,s:real; n:integer;
begin
write('x=');readln(x);
writeln(' x S(x) y(x)');
a:=1; s:=1; n:=1;
while abs(a)>e do
begin
a:=-a*x*x/(2*n-1)/(2*n);
s:=s+a;
n:=n+1;
end;
writeln(x:3:1,' ',s:8:5,' ',cos(x):8:5);
<span>end.
Пример:
x=0.6
x S(x) y(x)
<span>0.6 0.82534 0.82534</span></span>
Ну,вот,может это поможет)
Const=10;
var a:array[1..n] of integer;
max,min: integer;
begin
for i:=1 to n do
readln(a[i]);
max:=-32768
min:=32767
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln(max*min)'
end.
Правильные утверждения:
Документы могут содержать не только текст.
<span>Установленные в документ изображения можно удалить.</span>
d) 101₂ = 1*2²+0*2¹+1*2⁰ = 4+1 = 5₁₀
210₃ = 2*3²+1*3¹+0*3⁰ = 18+3 = 21₁₀
101₂ + 210₃ = 5₁₀ + 21₁₀ = 26₁₀
e) 404₆ = 4*6² + 0*6¹ + 4*6⁰ = 144 + 4 = 148₁₀
205₈ = 2*8² + 0*8¹ + 5*8⁰ = 128+5 = 133₁₀
404₆ - 205₈ = 148₁₀ - 133₁₀ = 15₁₀
f) 56₁₆ = 5*16¹+6*16⁰ = 80+6= 86₁₀
37₇ - <em>в 7сс число не может содержать цифры 7 в записи. Либо опечатка в задании, либо проверка на внимательность. </em>