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.

28 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap N: '); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+1/(i*2);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

23 tháng 3 2023

program Tinh_S;

var i,n:integer;

     S:real;

begin

    writeln('Nhap so n=') ; readln(n);

    i:=1 ; S:=0;

    while i<=n do

       begin

          S:=S+1/n*(n+1); i:=i+1;

       end;

   writeln('Tong S=',S);

  readln

end.

 

 

 

      

23 tháng 3 2023

program Tinh_S;

var i,n:integer;

     S:real;

begin

    writeln('Nhap so n=') ; readln(n);

    i:=1 ; S:=0;

    while i<=n do

       begin

          S:=S+1/n*(n+1); i:=i+1;

       end;

   writeln('Tong S=',S);

  readln

end.

16 tháng 3 2023

program TinhTongWhileDo;

var

     n, i: integer;

     S: real;

begin

     write('Nhap so n: ');

     readln(n);

     S := 0;

     i := 1;

     while i <= 2*n do

     begin

          S := S + 1/i;

          i := i + 1;

     end;

     writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);

     readln;

end.

1 tháng 4 2022

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.

15 tháng 3 2023

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*i*i);

write('S = ',s:6:2);

readln

end.

15 tháng 3 2023

Bạn dùng Power là chương trình con nhưng sao mình không thấy bạn làm chương trình con trong bài mà lại dùng CTT power nhỉ?

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+1/i;

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

7 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.

29 tháng 3 2022

var i,n,s:integer;

begin

write('nhap n = ');readln(n);

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

8 tháng 3 2023

program tinhtong;

var n,i : integer;

S : real;

begin

write('Nhap n: ');

readln(n);

i:=1;

S:=0;

while i<=n do

begin

S:=S+1/i;

i:=i+1;

end;

writeln('Tong S= ',S);

readln;

end.

24 tháng 3 2023

program tinh_tong_S;

var
  n, i: integer;
  S: real;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + 1 / i;
    i := i + 1;
  end;
  
  writeln('Tong S la: ', S:0:2);
  
  readln;
end.