tính tổng 100 số tự nhiên đầu tiên bằng vòng lặp for do và while do
K
Khách
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.
Những câu hỏi liên quan
ML
16 tháng 3 2023
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ỉ?
21 tháng 3 2023
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
21 tháng 3 2023
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
KM
1
11 tháng 5 2021
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.
LT
1
2N
1
22 tháng 3 2022
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
ML
11 tháng 5 2023
while..do
Program HOC24;
var i: byte;
t: integer;
begin
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',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.