photography

/add link /ustrscr

grammar. sotnihuynb opijqv  iurtb 9eiyb 

1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s);

readln;

end.

2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)

uses crt;

var s:real;

n,i:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s:4:2);

readln;

end.

Program hotrotinhoc;

var d,n,i: byte;

a: array[1..100] of byte;

begin

write('N='); readln(n);

d:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i] mod 2=0 then inc(d);

end;

write('Mang vua nhap la :');

for i:=1 to n do write(a[i],' ');

writeln;

write('So phan tu chan la : ',d);

readln

end.

\(\dfrac{14}{7}hay\dfrac{17}{7}?\)

\(\dfrac{14}{7}\)

uses crt;

var x,y,z:real;

begin

clrscr;

write('Nhap x='); readln(x);

write('Nhap y='); readln(y);

z:=abs(1-sqr(x))+abs(1-sqr(y));

writeln('Z=',z:4:2);

readln;

end.

mik làm cả 2 bằng 1 ct nha

var x,y,z1,z2:real;

begin

write(' Nhap x: ');readln(x);

write(' Nhap y: ');readln(y);

z1:=abs(1-sqr(x)) + abs(1-sqr(y));

z2:=abs(1-exp(x)) + abs(1-exp(y));

writeln(' KQ b1 :' ,z1:0:1);

writeln('KQ b2: ',z2:0:1);

readln;

end.

def generate_sequence(n):

"""Generates the sequence A up to the nth term."""

if n < 0:

return "Please enter a non-negative number."

sequence = [] # This list will hold our sequence

if n >= 0:

sequence.append(1) # A[0] = 1

if n >= 1:

sequence.append(3) # A[1] = 3

for i in range(2, n + 1):

# Calculate A[i] using the rule: A[i] = A[i-1] * 2 * A[i-2]

next_term = sequence[i - 1] * 2 * sequence[i - 2]

sequence.append(next_term)

return sequence

# Let's see the sequence up to the 5th term (A[0] to A[5])

result = generate_sequence(5)

print(result) # Output: [1, 3, 6, 36, 432, 31104]