Viết chương trình 1+2+3+...+t với t là 1 số tùy ý

2 câu trả lời

uses crt;
var t,i,S:integer;
begin
   clrscr;
   write('Nhap t: '); readln(t);
   for i:=1 to t do S:=S+i;
   write('Tong la: ',S);
   readln
end.

uses crt;

var t,i ,s: integer;

Begin 

s:=0;

Writeln('Nhap t='); readln(t);

For i:=1 to t do s:=s+i;

Writeln('Tong la :', s);

readln

end.

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