Tính tổng từ 1 đến n (bằng câu lệnh while do)
NL
Những câu hỏi liên quan
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
program TinhTongTich;
var
N, i, Tong, Tich:integer;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
i:=1;
Tong:=0;
Tich:=1;
while i<=N do
begin
Tong:=Tong+i;
Tich:=Tich*i;
i:=i+1;
end;
writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);
writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Giúp em với còn 1 câu này nữa là em xong bài rồi
UT
19 tháng 5 2022 lúc 22:42
Viết chương trình tính tổng các số chẵn từ 1 đến n với n được nhập từ bàn phím (viết cho câu lệnh while...do). Mik đang cần gấppp
tham khảo
https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802
Đúng 2
Bình luận (2)
https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802
Đúng 1
Bình luận (2)
Var i,n,s:integer;
Begin
Write('Nhap n = ');readln(n);
i:=0;
While i <= n do
Begin
If i mod 2 = 0 then s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (1)
Tính tổng các số từ 1 đến 50 bằng lệnh lặp while...do.
Program tinhtong;
var: i,s=longint;
Begin
i:=-1;
While i<50 do
Begin
i:=i+2;
S:-S+i;
End:
readln;
End.
Đúng 1
Bình luận (0)
Program HOC24;
var i,t: integer;
begin
i:=0; t:=0;
while i<=50 do
begin
i:=i+1;
t:=t+i;
end;
write('Tong cac so tu 1 den 50 la: ',T);
readln
end.
Đúng 1
Bình luận (0)
tính tổng số tự nhien từ 1 đến 1000 ( sử dụng lẹnh for...do và câu lệnh while...do)
Xem chi tiết
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=1 to 1000 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
program tongtu1den1000;
uses crt;
var n,s:longint;
begin
n:=1;s:=0;
while n<=1000 do
begin s:=s+n;n:=n+1; end;
writeln('tong la: ',s);
readln
end.
Đúng 1
Bình luận (1)
NHẬP N IN RA CÁC TỔNG CÁC SỐ CHẴN TỪ 1 ĐẾN N ;; SỬ DỤNG CÂU LỆNH WHILE DO
Program HOC24;
var i,n,t: integer;
begin
write('Nhap N: '); readln(n);
i:=2; t:=0;
while i<=n do
begin
t:=t+i;
i:=i+2;
end;
write('Tong cac so chan tu 1 den ',n,' la: ',t);
readln
end.
Đúng 1
Bình luận (0)
NHẬP N TÍNH TỔNG S= 1/2+1/3+1/4+....+1/N BẰNG CÂU LỆNH WHILE..DO
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
i:=2; s:=0;
while i<=n do
begin
s:=s+1/i;
i:=i+1;
end;
write('S = ',s:5:2);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình :
Nhập vào giá trị n (n>2) . Tính tổng các giá trị chẵn trong phạm vi từ 2 đến n
Sử dụng câu lệnh while-do
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
Đúng 1
Bình luận (3)
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (1)