Question

Cho dãy số : 1,1,2,4,7,11,16,.....Viết chương trình pascal

a/ Tính tổng 15 số hạng đầu tiên

b/ Tính giá trị số hạng thứ 2023

 

Answer 1

Program HOC24;

var i,j,tong: integer;

t: longint;

a: array[1..2024] of longint;

begin

i:=0; t:=1; a[1]:=1; j:=1;

while i<>2023 do

begin

t:=t+i;

i:=i+1;

j:=j+1;

a[j]:=t;

end;

tong:=0;

for i:=1 to 15 do tong:=tong+a[i];

writeln('Tong 15 so hang dau la: ',tong);

write('So hang thu 2023 la: ',a[2023]);

readln

end.