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.
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
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.
Var i , n : integer;
S: real;
Begin
write (' n ='); read (n);
S:= 0
For i:= 1 to n do S:= S+ 1/i;
Write (S);
Readln;
End.
program bai1;
var s,n,i:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('s= ',s);
readln
end.
Bài 1:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
i:=i+1;
end;
writeln(a:4:2);
readln;
end.
Var i , x : integer;
S : real;
Begin
write (' x = '); read (x);
S:=0;
For i:=1 to x do S:= S+i;
Write (S);
Readln;
End.
program bai1;
var s,i,x:longint;
begin
write('x= ');
readln(x);
s:=1;
for i:=2 to n do
s:=s+1/i;
write('s= ',s);
readln
end.
var i,n:integer;
Tong:real;
begin
write('nhap n=');readln(n);
Tong:=0;
for i:=1 to n do Tong:=Tong+1/(i*i);
write('ket qua la:',Tong);
readln
end.
program tinhtong;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*i));
write('tong vua tinh la:',s:2:3);
readln;
end.
người mới vô có gì sai sót mong bỏ qua :)).