Việt phương trình tính tổng các số chẵn từ 1 đến 10
Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}
Viết chương trình tìm ước chung lớn nhất của hai số nguyên.
Hai số nguyên tố cùng nhau là hai số có ước chung lớn nhất là 1. Viết chương trình nhập vào hai số và kiểm tra xem chúng có phải hai số nguyên tố cùng nhau hay không?
Viết chương trình tính tổng S = 1 + 1.2 + 1.2.3 + . . . + 1.2.3... N {\displaystyle S=1+1.2+1.2.3+...+1.2.3...N}
Viết chương trình đếm các chữ số chẵn của nguyên N.
Viết chương trình nhập vào số nguyên N và tìm số nguyên m lớn nhất sao cho 1 + 2 + 3 + . . . + m < N {\displaystyle 1+2+3+...+m Viết chương trình in ra màn hình bảng cửu chương N. Viết chương trình in ra N hàng của tam giác Pascal. Viết chương trình in ra tất cả các ký tự có mã ASCII từ M đến N. Cho 4 chữ số 1, 2, 3 và 4. Có bao nhiêu số có 3 chữ số tạo thành từ 4 chữ số 1, 2, 3, 4 và đó là những số nào, viết chương trình thực hiện yêu cầu trên. Gửi tiết kiệm ngân hàng số tiền X đồng với lãi suất N %/tháng. Để nhận được số tiền ít nhất là B đồng thì phải gửi tối thiểu bao nhiêu tháng. Viết chương trình giải quyết bài toán trên trong trường hợp không tính lãi kép. Câu 1: Tổng số chẵn. var kq,i: integer; begin for i:=1 to 100 do if i mod 2 = 0 then inc(kq,i); write('Tong so chan 1 den 100 la: ',kq); end. Tổng số lẻ var kq,i: integer; begin for i:=1 to 100 do if not i mod 2 = 0 then inc(kq,i); write('Tong so le 1 den 100 la: ',kq); end. Câu 2: Đếm số chẵn var dem,i:integer; begin for i:=1 to 100 do if i mod 2 = 0 then inc(dem); write('Tong so chan: ',dem); end. Đếm số lẻ var dem,i:integer; begin for i:=1 to 100 do if not i mod 2 = 0 then inc(dem); write('Tong so le: ',dem); end. Cách di chuyên con trỏ soạn thảo trong bảng là: (Tin học - Lớp 6) 3 trả lời Nội dung của các ô trong bảng có thể chứa: (Tin học - Lớp 6) 2 trả lời Việc định dạng trang văn bản có tác dụng đến (Tin học - Lớp 6) 1 trả lời
Viết chương trình tính tổng các số chẵn từ 1 đến 10. Các câu hỏi tương tự
|