2 câu trả lời
uses crt;
var i, s : integer;
begin
clrscr;
s := 0;
for i := 1 to 6 do s := s + i;
write('S = 1 + 2 + 3 + 4 + 5 + 6 = ', s);
readln
end.
Câu hỏi trong lớp
Xem thêm