Const eps=1e-4;
var n,z:integer; x,sx,an,s:real;
begin
x:=0.62;
sx:=sin(x);
n:=1; z:=-1;
an:=1; s:=0;
while abs(an)>eps do
begin
z:=-z;
n:=n+1;
an:=z*sx/(n*(n*n-1));
s:=s+an;
end;
writeln('k = ',n-1,' s = ',s);
end.
Результат:
<span>k = 17 s = 7.92376332816429E-002</span>
1. 99
2. 5
3. 2
_____________________________________________________________
Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
Begin
S:=S+(N-1)/(N*N);
N:=N+1
End;
WriteLn(S)
End.
JAVA
class Main{
p s v main(String[] args]{
int N, X, Y, S;
Scanner sc = new Scanner(System.in) // Ввод
int toExit = 1;
while(toExit != 0){
N = sc.nextInt();
if(1 <= N =< 50)
tiExit = 0};
int toExit = 1;
while(toExit != 0){
X = sc.nextInt();
if(10 <= N =< 50)
tiExit = 0};
int toExit = 1;
while(toExit != 0){
N = sc.nextInt();
if(5 <= N =< 15)
tiExit = 0};
S = (N * X) + (N * Y);
System.out.print("S: " + S);
}}
<em>1.</em>
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
<span>
</span><em>2.</em>
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.