progran bai1;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i*(i+2);

writeln('Tong la ',s);

readln

end.

p:=0 là sai nha bạn

nếu p:=0 thì vòng lặp sẽ nhân với 0 sx thành 0 nên bạn phải gán là p:=1

Bài này đầy đủ hơn của bạn CTV

program bai1;

n,i:longint;

begin

repeat

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

until ((n>0) and (n<3000));

write('Tat ca cac uoc cua ',n,' la: ');

for i:=1 to n do

if n mod i=0 then write(i);

readln

end.

Đặt bt trên là S. S có 2010 số hạng.

nhóm 4 số thành 1 nhóm có dạng a+a+1-(a+2)-(a+3)=a-3(có 2010:4=502 nhóm dư 2 số)

=> S=(a-3)+[(a+4)-3]+(a+8-3)+...+(a+2004-3)+2009+2010

=> S=(a+2001+a-3).502:2+2009+2010 tự tính nhá

Trả lời ở mục Toán vui mỗi tuần ấy

thêm ở for do là if i mod 2=0 then s:=s+i

program bai1;

var i:longint;

begin

for i:=1 to n do

writeln('Chao cac ban');

readln

end.

BẰNG MIỆNG

ONLINE NHA

program bai1;

var n,i:longint;

begin

repeat

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

until ((n>=0) and (n<=3000));

write('Cac uoc cua ',n,' la: ');

for i:=1 to n do

if (n mod i=0) then write(i,' ');

readln

end.

có acc sever dân chơi