Viết chương trình tính tổng S=2+4+6+8+…+100 (lệnh for.. do)
*Gợi ý: Lệnh lặp gồm 2 lệnh con là tăng số hạng mỗi lần 2 đơn vị và sau khi tăng số hạng thì cộng số hạng đó vào tổng nên cần khối begin… end để bao hai lệnh lặp đó lại
Viết chương trình tính tổng S=2+4+6+8+…+100 (lệnh for.. do)
*Gợi ý: Lệnh lặp gồm 2 lệnh con là tăng số hạng mỗi lần 2 đơn vị và sau khi tăng số hạng thì cộng số hạng đó vào tổng nên cần khối begin… end để bao hai lệnh lặp đó lại
Program FNG;
Uses crt;
Var S,i: longint;
Begin
Clrscr;
s:=0;
For i:=2 to 100 do
If i mod 2 = 0 then s:=s+i;
Write(‘S = ‘,s);
Readln
End.
uses crt;
Var t,i:integer;
Begin
clrscr;t:=0;
For i:=1 to 100 do if i mod 2=0 then t:=t+i;
write(‘tong la: ‘,t);
Readln;
End;