Viết chương trình tính tổng 20 số tự nhiên đầu tiên
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
PN
1
7 tháng 2 2021
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 20 do
if i mod 2=0 then s:=s+i;
writeln('Tong cac so chan trong khoang 20 so tu nhien dau tien la: ',s);
readln;
end.
11 tháng 11 2016
1.
program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readln
end.
2.
program tinhtong;
uses crt;
var i,L,s:integer;
begin
write('nhap gia tri L='); readln(L);
s:=0;
for i:=1 to L do s:=s+1;
writeln('tong cua s=',s);
readln
end.
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.
HT
1
5 tháng 5 2021
const fi='baitap.out';
var f1:text;
i,t:integer;
begin
assign(f1,fi); rewrite(f1);
t:=0;
for i:=1 to 20 do
t:=t+i;
writeln(f1,t);
close(f1);
end.
TL
1
C
28 tháng 12 2021
tk:
https://hoc247.net/hoi-dap/tin-hoc-8/viet-chuong-trinh-tinh-tong-100-so-tu-nhien-dau-tien-faq247722.html
BV
1
NN
0
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
writeln(t);
readln;
end.
chương trình đó là đếm mà đếm giá trị của t sao cho mỗi lần đến là t:=t+
1 ?? có đúng ko mong mn sửa ak :))