tính tổng các số tự nhiên S=1+2+3+4+... sử dụng 2 vòng lập for...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
8 tháng 3 2021
a) Sử dụng vòng lặp For..do
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i;
writeln(a);
readln;
end.
b) Sử dụng vòng lặp While...do
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+i;
inc(i);
end;
writeln(a);
readln;
end.
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ỉ?
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
30 tháng 3 2022
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
for i:=2 to n do
if i mod 2=1 then write(i:4);
writeln;
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln(t);
readln;
end.
11 tháng 3 2022
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
i:=0;
while i<=50 do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.
TA
12 tháng 5 2021
Câu 8.
program im_14424;
uses crt;
var S: byte;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 20 do
S:=S+i;
writeln('Tong cua 20 so tu nhien dau tien la: ,S);
readln
end.
Câu 9.
j:=2 → Gán j = 2.
for i:=1 to 5 do → lặp lại 5 lần
j:=j+2 →
Lần 1: 4
Lần 2: 6
Lần 3: 10
Lần 4: 12
Lần 5: 14
TG
12 tháng 5 2021
Câu 1:
uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.
Câu 2:
i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12
a. Var i : integer;
S : real;
Begin S:= 0;
For i:=1 to 100 do S:= S + i;
Write (S);
Readln;
End.
Bài của bạn Hồ Đức Việt đúng nhưng đề bài không cho rõ là đến số bao nhiêu nên phải nhập số đó vào ctr chứ không phải cho chạy luôn. Còn đề cho mình hỏi 2 vòng lặp không cần có được không chứ mình chưa rõ dùng 2 vòng lặp kiểu gì? nếu dùng 2 vòng thì bạn muốn in ra kết qua nhiều lần hay thế nào? :)
program day_so;
uses crt;
var s,i,n:integer;
begin
writeln('nhap so cuoi cua day');readln(n)
for i:=1 to n do s:=s+i;
writeln('Ket qua day so la', s:0:0); readln
end.