Question

Tính tổng của dãy số

(lay số nào cũng được )

giúp mik nha các bạn

Answer 1

Program tt;
Uses crt;
Var T, i: integer;
Begin
Clrscr;
T:=0
For i:=1 to 7 do T:= T+i;
Writeln('Tong T='T);
Readln;
End.

Answer 2

Bài của bạn Hàn Lâm Nhi làm đúng nhưng vẫn mắc 2 lỗi .

Sau lệnh gán T:=0 cần có chấm phẩy . Hoàn chỉnh là : T:=0;

Với câu lệnh in kết quả ra màn hình thì bạn làm thiếu dấu phẩy . Hoàn chỉnh là : writeln('Tong T=',T);