Những câu hỏi liên quan
Cho số tự nhiên n Hãy lập trình tính tổng sau s =1+1/2+1/3+...+1/n
Tham khảo:
Uses Crt ;
Var i , n : Integer ;
tong: Real ;
BEGIN
Clrscr ;
Write (‘ Cho so tu nhien n : ‘) ; Readln (n) ;
tong :=0 ;
i :=1 ;
While i <= n Do
Begin
tong := tong + 1/i ;
i := i + 1 ;
End ;
Writeln (‘ Tong can tim la : ‘, tong:12:6 ) ;
Readln ;
END .
Đúng 0
Bình luận (0)
cho số tự nhiên N(1 N<10^6). Tính tổng sau : S= 1-2+3-4+5-6...+N
viết chương trình ra giúp vs
uses crt;
var i,n:integer;
s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+i
else s:=s-i;
writeln('s= ',s);
readln;
end.
Đúng 1
Bình luận (0)
10 tháng 2 2021 lúc 21:18
Cho số tự nhiên n và x, hãy lập trình để tính:
a/ nx
b/ S= 1 + 1/22 + 1/32 + … + 1/n2 +… cho đến khi 1/n2 < 2 x 10-4
a) uses crt;
var n,x,i:longint;
lt:real;
begin
clrscr;
write('Nhap co so n=');readln(n);
write('Nhap so mu x='); readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*n;
writeln(n,'^',x,'=',lt:0:0);
readln;
end.
Đúng 2
Bình luận (0)
Cứu tớ với ạ
Câu 2 là 1 phần 2, 1 phần 3, 1 phần 20 í ạ không phải chia đâu ạ
Câu 1: Lập trình tổng: A=1+2+3+...+n Ở đây n là số tự nhiên được nhập từ bàn phím. ( Viết bằng lệch for...to...do)
Câu 2: Lập trình tính tổng nghịch đảo của 20 số tự nhiên đầu tiên 1+1/2+1/3+...1/20
Câu 1:
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S1+2+3+ ...... (Khi Tổng S đầu tiên 1000 thì dừng). Hỏi cộng bao nhiêu số?Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:Program tinh_tong;Var n S: IntegerBeginn: 0;S 0;While S 1000 don: n + 1; S: S + n Writeln(‘Can cong’,n-1,’so va tong dau tien 1000 la’, S); Readln;End.
Đọc tiếp
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.
em hãy viết chương trình để tính tổng A sau đây( n là số tự nhiên được nhập vào từ bàn phím) A=1/1*3+1/2*4+1/3*5+.......+1/n*(n+2)
help me vs!!!!!
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+2));
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng: S=1+1/2+1/3+...+1/n
Biết n là số tự nhiên được nhập từ bàn phím
var i,n: integer;
s:real;
begin
write(‘Nhập n: ‘); readln(n);
i:=1;
repeat
s:=s+1/i;
i:=i+1;
until i=n;
write(‘s =‘, s:0:4);
readln
end.
diepbich 016/08/2021 at 03:53ReplyProgram Hotboy ;
Uses crt;
Var n,i,s : real;
Begin
Writeln(‘nhap n’); readln(n);
Repeat
S:=S+ 1/i;
I:=i+1 ;
Until n=i;
Writeln(‘S=’,S);
Readln
End.
Đúng 2
Bình luận (3)
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:4:2);
readln;
end.
Đúng 1
Bình luận (0)
cho s=1^2+2^2+...+n^2. với n là 1 số tự nhiên được nhập từ bàn phím. Hãy viết điều kiện lặp, công việc lặp sau do cho lệnh while để tính tổng S trên
Uses Crt;
Var i,S,n:integer;
Begin
Clrscr;
Readln(i,S,n);
For i:=1 to n do S:=S+i*i;
Write(S);
Readln
End.
Đúng 0
Bình luận (0)
uses crt;
var s,i,n:longint;
begin
clrscr;
readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i*i;
i:=i+1;
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)