Lập trình đơn giản

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

Viết chương trình tính tổng:

\(S=1+\dfrac{1}{2}+\dfrac{1}{2}+\dfrac{1}{4}+...+\dfrac{1}{n}\).

Cô Gái Bí Ẩn
14 tháng 5 2017 lúc 18:50

program tong;

use crt;

var i,n:integer;

s:real

Begin

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

s:=0;

for i:= 1 to n do

s:=s+\(\dfrac{1}{i}\)

write(' tong la',s);

readln;

End.

Vượng Cô Ca
7 tháng 7 2017 lúc 12:11

program Tinh_Tong;

uses crt;

var a,S,n: Real;

begin clrscr;

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

S:=0;

For a:= 1 to n do S:=S+1/a;

writeln('Tong la S=',S);

readln

end.

bùi công tuấn
1 tháng 1 2018 lúc 22:41

Program tinh_tong;

Uses Crt;

Var i,n:integer;

s:real;

Begin

Write('Nhap so n: ');readln(n);

s:=0

For i:=1 to n do s:=s+\(\dfrac{1}{i}\);

Write('Tong la: ',s);

Readln;

End

Tú Nguyễn
15 tháng 1 2018 lúc 4:54

đề bị làm sao kìa

duong nguyenvan
15 tháng 1 2018 lúc 15:03

Program bai1;

uses crt;

var i,n: integer;

S: real;

begin

clrscr;

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

S:=0;

for i:= 1 to n do

S:=S+1/i;

writeln('tong = ' ,S:4:2);

readln;

end.


Các câu hỏi tương tự
Bảo Châu
Xem chi tiết
Kamato Heiji
Xem chi tiết
VĂN LƯƠNG NGỌC DUYÊN
Xem chi tiết
Quang Nguyễn
Xem chi tiết
Đinh Thuận
Xem chi tiết
bùi thị hồng thu
Xem chi tiết
Đinh Thuận
Xem chi tiết
như quỳnh nguyễn
Xem chi tiết
Quỳnh Đỗ
Xem chi tiết