Giải chương trình tính giá trị của biểu thức : A=1+1/2+1/3+ ...+1/n Giúp mình với đề cương nhiều câu quá chìu mình thi

thuyquyet79

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 29 xem

1 trả lời

Thích Trả lời

dungmk76

Program tinh_tong_A;

uses crt;

var n,i:integer;

A:real;

begin

clrscr;

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

A:=0;

for i:=1 to n do

A:=A+1/i;

write('A= ',a:2:2);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

duchuy1317

uses crt;

var i,n: integer;

a: real;

begin

clrscr;

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

for i:=1 to n do a:=a+(a/i);

writeln ('tong la: ',s);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Tóm tắt và giải giúp mk với ạ mk sẽ vote 5 *

Giải thích nữa nghe kakakakLlaLa

Tìm hai số biêt: a,tổng 345,5 ; hiệu 49,34 b, tổng 564,5 ; tỉ 3/2 c, hiệu 23,56 ; tỉ 3/5 Mn giúp em ạ ^^

kể tên 6 cây một lá mầm và 6 cây hai lá mầm

hạn chế của nền tư bản độc quyền là gì

Vẽ logo + chữ "Đội tuyển tiếng Anh 8 trường THCS Ngô Sĩ Liên quyết thắng" ( Spam , copy -> Báo cáo )

Cho 13g kẽm tác dụng với dung dịch loãng có chứa 21,9 gam axit clohiđric (HCL) thu được kẽm Cloruua (ZnCl) và khí Hiđro a.Sau phản ứng chất nào dư và dư bao nhiêu b.Tính thể tích của khíc hiđto

Giải chương trình tính giá trị của biểu thức : p=1.2.3...n Giúp mình câu b với ạ chiều thi rồi

cho tam giác abc có AD là đường phân giác góc BAC. Từ D kẻ các đường phân giác của ADB và ADC lần lượt cắt AB tại E và AC tại F. Chứng minh AE.CF.AB=BE.AF.AC

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến