2 câu trả lời
var i:byte;
t:integer;
begin
for i:=0 to 100 do
t:=t+i;
write('Tong 100 so tu nhien dau tien la: ',t);
readln
end.
Program tinh_tong
uses crt
const : N:=100;
Var i,tong:integer;
begin
clrscr
tong:=0;i:=1
while N⇒i
begin
tong: = tong + i;
i:=i+1;
end
Writeln('tong cua 100 so tu nhien dau tien la',tong);
Readln;
End.
(Đây là bài của mình trên hoi247 đó)
- Đề 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
