Copyright © 2022 Hoc247.net
Đơn vị chủ quản: Công Ty Cổ Phần Giáo Dục HỌC 247
GPKD: 0313983319 cấp ngày 26/08/2016 tại Sở KH&ĐT TP.HCM
Giấy phép Mạng Xã Hội số: 638/GP-BTTTT cấp ngày 29/12/2020
Địa chỉ: P401, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM
Admin Admin
Bài 1: Viết chương trình tính tích các số từ 1 đến n. Bài giải: uses crt; var n,i,tich:integer; begin clrscr; tich:=1; write['Nhap n:'];readln[n]; for i:=1 to n do tich:=tich*i; write['Tich so tu 1 den ',n,' la:',tich]; readln; end.
Bài 2:Viết chương trình tính tổng nghịch đảo từ 1 đến n. Bài giải: uses crt; var i,n:integer; tong:real; begin clrscr; tong:=0; write['Nhap n:'];readln[n]; for i:=1 to n do tong:=tong+1/i; write['Tong ngich dao cac to tu 1 den ',n,' la:',tong:2:3]; readln; end.
Bài 3: Viết chương trình tính tổng nghịch đảo giai thừa từ 1 đến n: S=1/1! + 1/2! + … + 1/n! Bài giải: uses crt; var i,n:integer; tich: longint; tong:real; begin clrscr; tong:=0; tich:=1; write['nhap n:'];readln[n]; for i:=1 to n do begin tich:=tich*i; tong:=tong+1/tich; end; writeln['Tong nghich dao giai thua tu 1 den ',n,' =',tong:2:1]; readln; end.
Bài 4: Nhập số thực a dương. Tìm n bé nhất để biểu thức: S= 1 + 1/2 + 1/3 + … + 1/n > a Bài giải: uses crt; var i,n,a:integer; tong:real; beginuê clrscr; write['Nhap a:'];readln[a]; tong:=0; n:=0; while tong