Bài 13: Viết chương trình tính giai thừa của n, với n được nhập từ bàn phím. Bài 14: Viết chương trình chứng minh rằng phép chia giữa hai số nguyên, chẳng qua chỉ là phép trừ. In kết quả ra màn hình là số thương và số dư. Bài 15: Viết chương trình nhập vào một số và kiểm tra xem số đó có phải là số nguyên tố hay không? Bài 16: Viết chương trình tính xn, với x, n được nhập từ bàn phím. Bài 17: Viết chương trình nhập vào một số nguyên, in ra màn hình số nguyên đó có mấy ký tự số. Bài 18: Viết chương trình tính tổng S = 1+2+3+…+ n sao cho S > 1000. Hỏi khi đó cụ thể S bằng bao nhiêu? Bài 19: Viết chương trình tính tổng S = 12 +22 +…+n2 . In kết quả ra màn hình. Bài 20: Viết chương trình tính tổng của n số nguyên đầu tiên. Số n và các số hạng của tổng được nhập từ bàn phím. In kết quả ra màn hình.
========================
Bài 1: Viết chương trình tính tổng tích các biểu thức S = 1*1+1*2+…1*10 + 2*1+2*2+…+…+ M*N.
Câu 1 var i,j,n,s: integer; begin s:= 0; write(`Nhap so lan lap: `); readln(n); for i:= 1 to n do for j:= 1 to 10 do s:= s+(i*j); write(`S = `,s); end.
------------------------------------------------- Bài 2: Viết chương trình đưa ra màn hình 2 câu: “Chào bạn. Bạn có khỏe không!”. In 5 lần lên màn hình. Câu 2 var i: integer; begin for i:= 1 to 5 do writeln (`Chao ban. Ban co khoe khong?`); end.
-------------------------------------------------- Bài 3: Viết chương trình vẽ hình chữ nhật và điền dấu * như hình sau: * * * * * * * * * * * * * * * Câu 3 var i,j: integer; begin for i:= 1 to 3 do begin for j:= 1 to 5 do write(`*`); writeln; end; end. -------------------------------------------------- Bài 4: Viết chương trình tìm ước chung lớn nhất của hai số nguyên. In kết quả ra màn hình. Câu 4 var x,y,u: longint; begin write(`Nhap x: `); readln(x); write(`Nhap y: `); readln(y); while x<>y do if x>y then x:=x-y else y:=y-x; u:=x; write(`Uoc chung lon nhat cua x va y la: `,u); end.
---------------------------------------------------- Bài 5: Viết chương trình tính trung bình cộng của các số nhập vào từ bàn phím. Khi muốn kết thúc nhập để tính trung bình thì nhấn phím 0. In kết quả ra màn hình. Câu 5 var t,i: integer; k: real; begin t:=0; i:=0; writeln(`Nhap so muon tinh trung binh cong, nhan phim 0 de ket thuc`); repeat begin i:=i+1; write(`Nhap so thu `,i,`: `); readln(t); k:=k+t; end; until t=0; k:=k/(i-1); write(`Trung binh cong cua day so vua nhap: `,k); end. --------------------------------------------------------------
Bài 6: Viết chương trình tính tổng bình phương của n số nguyên đầu tiên. In kết quả ra màn hình. Câu 6 var i,n,m: integer; begin m:=0; write(`Nhap n: `); readln(n); for i:=1 to n do m:= m+i*i; write(`Tong binh phuong: `,m); readln; end. -------------------------------------------------------------- Bài 7: Viết chương trình tính tổng bậc 3 của n số nguyên đầu tiên. In kết quả ra màn hình. Câu 7 var i,n,m: integer; begin m:=0; write(`Nhap n: `); readln(n); for i:=1 to n do m:= m+i*i*i; write(`Tong binh phuong: `,m); readln; end. ---------------------------------------------------------------- Bài 8: Viết chương trình nhập vào một số nguyên rồi in ra màn hình tất cả các ước số của số đó
nguon VI OLET
