Question

Viết chương trình: a. 1 người gửi tiết kiệm 100 đồng Hỏi sau 12 tháng người đó sẽ thu được số tiền là bao nhiêu? Biết rằng lãi suất mỗi tháng của ngân hàng là 0,15%. b. Một giáo viên vào lớp và phát kẹo cho các em học sinh theo quy tắc sau. Em đầu tiên được nhận 1 viên kẹo., em tiếp theo nhận số kẹo nhiều hơn em trước đó 3 viên. Hỏi nếu lớp đó có 35 học sinh thì tổng số kẹo phải có để giáo viên phát đủ cho cả lớp là bao nhiêu? c. Tính tổng số đồng tiền được thả vào bàn cờ, biết: — bàn có 64 ô —ô đầu tiên ta thả vào 1 đồng tiền —các ô còn lại ta thả đồng tiền vào theo quy ước:ô tiếp theo có số lượng đồng tiền gấp đôi ô trước đó. Mình cần gấp!!!!!!! Cảm ơn??

Answer 1

b) 

uses crt;

var s,i,a:longint;

begin

clrscr;

s:=0;

a:=1;

for i:=1 to 35 do 

  begin

s:=s+a;

a:=a+3;

end;

writeln('So vien keo la: ',s);

readln;

end.