tính tổng dãy số tự nhiên X = 0 + 1 + 2 + .... + 50

1 câu trả lời

var i,x:integer;

begin

for i:=0 to 50 do

x:=x+i;

write('Ket qua la: ',x);

end.

Câu hỏi trong lớp Xem thêm