Các bạn ơi giúp mình câu này với Viết chương trình pascal tính tổng 100 số tự nhiên đầu tiên. Mình cảm ơn nhiều ạ❤
2 câu trả lời
uses crt;
var i,T:integer;
begin
T:=0;
if i:=1 to 100 do T:=T+1;
writeln('tong 100 so dau tien la:',T);
readln;
end.
program ct;
uses crt;
var sum,i:integer;
begin
clrscr;
sum:=0;
for i:=0 to 99 do
sum:=sum+i;
writeln('0+1+2+3+4+...+99 = ',sum);
readln;
end.
____________________________
#Duahauvn
Câu hỏi trong lớp
Xem thêm
- Đề 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
