Viết chương trình tính tổng :1+2+3+4...+t (Cấu trúc for - do)
2 câu trả lời
uses crt;
Var i,t ,s : integer;
Begin clrscr;
write('Nhap t='); readln(t);
s:=0;
For i:=1 to t do s:=s+i;
write('Tong la :', s)l
readln
end.
Program Hotboy ;
Uses crt;
Var S,t ,i :longint;
Begin
Clrscr;
S:=0;
Write('nhap t tu ban phim');
Readln(t);
For i:=1 to t do
S:=S+i;
Inc(i);
Writeln('tong can tim la',S);
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
