- Cho biết chương trình sau đây làm công việc gì ? Uses crt; Var S,i: integer; Begin S:=0; for i:= 1 to 10 do begin S:= S + i*i; writeln('Buoc thu ', i, ' tong S=', S); end; readln; End.
Mình cần một chút hỗ trợ từ cộng đồng ở đây. Câu hỏi của mình có lẽ khá đặc biệt, nhưng hy vọng ai đó có thể giúp đỡ.