Giúp e viết ct tính tổng các bước của N sử dụng while do
Những câu hỏi liên quan
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Đúng 0
Bình luận (0)
Sử dụng câu lệnh lặp while...do viết lại thuật toán để nhập số tự nhiên n và tính tổng các ước số thực của n
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0; i:=1;
while (i<=n) do
begin
if n mod i=0 then t:=t+i;
i:=i+1;
end;
writeln(t);
readln;
end.
Đúng 2
Bình luận (0)
Câu 3: Viết chương trình tính tổng S 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)Các bạn giúp mình được không ạ.
Đọc tiếp
Câu 3: Viết chương trình tính tổng S= 
1+1/2^2+1/3^3+...+1/n^2 với n
N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
viết ct tính tổng:A=1+1/2+1/3+...+1/N (n thuộc z)
a) sử dụng lệnh for...to...do
b)sử dụng lệnh while...do
program fordo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('Tong la ',s);
readln
end.
Đúng 0
Bình luận (0)
program whiledo;
var i,n:longint;
s:real;
begin
write('N= ');readln(n);
s:=0;i:=1;
While i<= n do
begin
s:=s+1/i;
i:=i+1;
end;
writeln('Tong la ',s);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các số tự nhiên từ 10 đến N. Với số N là số tự nhiên bất kì do người sử dụng nhập va N > 15. * Lưu ý: Sử dụng câu lệnh lặp While...do*
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
if n<=5 then write('So vua nhap chua lon hon 15') else
begin
t:=0; i:=10;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
end;
write('Tong la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình sử dụng vòng lặp while....do để tính tổng của các số tự nhiên chia hết cho 2 không vượt quá số N cho trước.
Xem thêm câu trả lời
Viết chương trình tính tổng n số, với n được nhập từ bàn phím ( sử dụng while..do)?
program a1;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n:'); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1;
i:=i+1;
end;
write('tong cua day n:',s);
readln;
end.
Đúng 1
Bình luận (0)
Hãy viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến N( sử dụng lệnh While ... do )
có thể giải nhanh đc ko ạ
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
i:=0;
while i<=n do
begin
i:=i+1;
if i mod 2=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
program tim_uoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0;
writeln('cac uoc cua ',n,' la:');
while i<=n do
if n mod i=0 then
begin
write(i:3);
inc(i);
end;
writeln;
i:=1;writeln('cac uoc chan:');
while i<=n do
begin
if n mod i=0 then
begin
if i mod 2=0 then write(i:3);
tong:=tong+i;
end;
end;
writeln;
write('tong cac uoc chan:',tong);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
writeln('Cac uoc cua ',n,' la: ');
while i<=n do
begin
if n mod i=0 then write(i:4):
i:=i+1;
end;
writeln;
writeln('Cac uoc chan cua ',n,' la: ');
t:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) then
begin
t:=t+i;
write(i:4);
end;
inc(i);
end;
writeln('Tong cac uoc chan cua ',n,' la: ',t);
readln;
end.
Đúng 0
Bình luận (0)