Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
phúc võ
Xem chi tiết
Đặng Phương Linh
23 tháng 3 2023 lúc 11:05

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.

 

 

 

      

Mun UwU
23 tháng 3 2023 lúc 11:37

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.

Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:27

program tinh_tong_S;

var
  n: integer;
  i: integer;
  S: real;

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

Lê Hoài Bảo Thi
Xem chi tiết
Minh Lệ
28 tháng 3 2023 lúc 20:27

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.

Trường Nguyễn
Xem chi tiết
Minh Lệ
1 tháng 4 2022 lúc 11:26

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.

Linh Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 9:22

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.

Khánh Hoàng
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:32

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.

Trí Cao
Xem chi tiết
Kiều Vũ Linh
17 tháng 3 2022 lúc 9:18

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

phuong linh
Xem chi tiết
Kiều Vũ Linh
20 tháng 4 2022 lúc 14:57

Var s1,s2,i,j:integer;

Begin

s1:=1;

s2:=0;

i:=2;

j:=4;

While i<=50 do

Begin

s1:=s1+i;

i:=i+2;

End;

While j<=20 do

Begin

s2:=s2+j;

j:=j+4;

End;

s2:=s2+32;

Writeln('Tong day N = ',s1);

Writeln('Tong day M = ',s2);

Readln;

End.

Thu Tuyền
Xem chi tiết
Phía sau một cô gái
8 tháng 3 2023 lúc 15:05

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.

Nguyễn Hoàng Duy
24 tháng 3 2023 lúc 10:29

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.

Thanh huyền
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 13:34

*for..do

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/sqr(i);

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

readln

end.

Minh Lệ
7 tháng 3 2023 lúc 21:30

*while..do

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:6:2);

readln

end.