Hoài thịnh

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

 

Minh Lệ
9 tháng 5 2023 lúc 18:52

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.

Bình luận (0)

Các câu hỏi tương tự
Lỏ An Hoà Hacker
Xem chi tiết
Nguyễn Thị Ngọc Minh
Xem chi tiết
ngỷyvjhy
Xem chi tiết
Nhi Uyển
Xem chi tiết
Nguyễn Anh Quân
Xem chi tiết
Han Hao
Xem chi tiết
Trần Nguyễn Tuấn Anh
Xem chi tiết
Đinh Thu Hằng
Xem chi tiết
NGOC DAN
Xem chi tiết