Question

Câu 1: Viết chương trình tính tổng các số chẵn <= n

Câu 2: Viết chương trình tính tổng 100 số tự nhiên đầu tiên khác 0

Answer 1

Câu 1:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

write('Tong cac so chan <= ',n,' la ',t);

readln

end.

Answer 2

Câu 2:

Program HOC24;

var i: integer;

t: longint;

begin

t:=0;

for i:=1 to 100 do t:=t+i;

write('Tong 100 so tu nhien dau tien la : ',t);

readln

end.