Viết chương trình tính tổng 100 số tự nhiên đầu tiên (Sử dụng câu lệnh lặp While). giúp mình với nhá cảm ơn
2 câu trả lời
program tong;
var
i, S: integer;
begin
S:=0
for i:=1 to 100 do S:=S+i;
writeln('tong la=', S);
readln
end.
program oken;
uses crt;
var i,tong:integer;
begin
clrscr;
i:=1;
while i<=100 do
begin
tong:=tong +i;
i:=i+1;
end;
writeln('tong 100 so dau tien: ',tong);
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
