Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=100 to 1000 do
s:=s+i;
writeln(s:0:0);
readln;
end.
Tham khảo theo link nhé bạn: https://hoc24.vn/hoi-dap/tim-kiem?id=603125&q=t%C3%ADnh%20t%E1%BB%95ng%20c%C3%A1c%20s%E1%BB%91%20t%E1%BB%B1%20nhi%C3%AAn%20t%E1%BB%AB%20100%20%C4%91%E1%BA%BFn%201000%20%28v%C3%B2ng%20l%E1%BA%B7p%20v%E1%BB%9Bi%20s%E1%BB%91%20l%E1%BA%B7p%20ch%C6%B0a%20bi%E1%BA%BFt%29
program tong_100_so_tu_nhien;
uses crt;
var i, S: integer;
begin
S := 0;
for i := 1 to 100 do
S := S + i;
writeln('Tong cua 100 so tu nhien dau tien la ', S);
readln;
end.
Var i,s:integer;
Begin
i:=1;
s:=0;
While i<=100 do
Begin
s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Số vòng lặp của bài toán được tính = giá trị cuối – giá trị đầu + 1 = 100 – 1 + 1 =100 vòng.
Đáp án: B
*Câu lệnh lặp số lần biết trước
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i mod 2=1 then t:=t+i;
writeln(t);
readln;
end.
*Câu lệnh lặp với số lần chưa biết trước:
uses crt;
var i,t:integer;
begin
clrscr;
i:=1; t:=0;
while i<=100 do
begin
t:=t+i;
i:=i+2;
end;
writeln(t);
readln;
end.
Chương trình bằng vòng lặp for do
program tong100sotunhien;
var
i, s: integer;
begin
s := 0;
for i := 1 to 100 do
begin
s := s + i;
end;
writeln('Tong cua 100 so tu nhien dau tien la: ', s);
readln;
end.
Chương trình bằng vòng lặp while do
program tong100sotunhien;
var
i, s: integer;
begin
s := 0;
i := 1;
while i <= 100 do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua 100 so tu nhien dau tien la: ', s);
readln;
end.
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
program to_lam_ko_biet_dung_hay_sai;
uses crt;
var i,s:integer;
begin
clrscr;
i:=100;s:=0
while i <= 1000 do
begin
s:=s+i;
i:=i+1;
end;
write('tong gia tri la',' ',s);
readln;
end.
Chào bạn đề bài này bị lỗi ngôn ngữ lập trình pascal không thể chạy