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