K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

  Khi có quá nhiều kênh truyền hình với rất nhiều chương trình giải trí thú vị, bạn sẽ chọn lựa xem những chương trình nào? Đây quả là một câu hỏi khó.
       Có n chương trình giải trí, chương trình thứ i (1 ≤ i ≤ n) có thời điểm bắt đầu là si và thời điểm kết thúc là ti. Chương trình giải trí thứ i và chương trình giải trí thứ j (với 1 ≤ i < j ≤ n) được gọi là không phù hợp với nhau về lịch phát sóng nếu người xem không thể xem trọn vẹn nội dung của cả hai chương trình giải trí này. Nếu thời điểm kết thúc ti của chương trình i là thời điểm bắt đầu sj của chương trình j thì hai chương trình này vẫn được xem là có lịch phát sóng phù hợp với nhau.
Ví dụ: Có 3 chương trình giải trí như sau: Chương trình 1 (s1= 7, t1= 10), chương trình 2 (s2= 12, t2= 15), chương trình 3 (s3= 10, t3= 20). Chương trình 1 và chương trình 2 có lịch phát sóng phù hợp với nhau. Tương tự, chương trình 1 và chương trình 3 cũng được xem là có lịch phát sóng phù hợp với nhau. Tuy nhiên, chương trình 2 và chương trình 3 có lịch phát sóng không phù hợp với nhau.
Yêu cầu: Cho biết kế hoạch phát sóng của N chương trình giải trí, hãy xác định có bao nhiêu cặp chương trình có lịch phát sóng không phù hợp với nhau.

Dữ liệu nhập: gồm các dòng sau:

- Dòng đầu tiên chứa một số nguyên dương n (với n ≤ 1.000).

- Dòng thứ i trong số  n dòng tiếp theo (1 ≤  i ≤  n), mỗi dòng gồm hai số nguyên dương si và ti là thời điểm bắt đầu và thời điểm kết thúc của chương trình giải trí thứ i (với 1 ≤ si < ti ≤ 105). Các số trên cùng một dòng được ghi cách nhau bởi 1 khoảng trắng.

Dữ liệu xuất:

- Là một số nguyên xác định số lượng cặp chương trình có lịch phát sóng không phù hợp với nhau.

0
Bài 1:Viết chương trình tính tổng các số lẻ( số chẵn) của 100 số tự nhiên đầu tiên bằng câu lệnh While..do; For ....do. Bài 2:B1:S←0;n←1 B2:nếu S >200 thì chuyển B4 B3:S←S+n*n; n←n+1 B4: Thông báo kết quả S và kết thúc. Bài 3:Tính tổng của 5+10+15+20+25+30+35+....+100 bằng câu lệnh lặp For ... do ; While .... do Bài 4:Viết chương trình in ra màn hình bản cửu chương của số N trong khoảng từ 1...
Đọc tiếp

Bài 1:Viết chương trình tính tổng các số lẻ( số chẵn) của 100 số tự nhiên đầu tiên bằng câu lệnh While..do; For ....do.

Bài 2:B1:S←0;n←1

B2:nếu S >200 thì chuyển B4

B3:S←S+n*n; n←n+1

B4: Thông báo kết quả S và kết thúc.

Bài 3:Tính tổng của 5+10+15+20+25+30+35+....+100 bằng câu lệnh lặp For ... do ; While .... do

Bài 4:Viết chương trình in ra màn hình bản cửu chương của số N trong khoảng từ 1 đến 9 , số được nhập từ bàn phím và dừng lại để có thể quan sát kết quả.

Bài 5:Cũng như câu lệnh if, có thể dùng câu lệnh for lồng bên trong một câu lệnh for ... do lồng nhau để in ra màn hình các số từ 0 đến 99.

Bài 6: B1:S←10; n←0.

B2: Nếu S≥10, chuyển tới bước 4

B3: n←n+3,S←S-n và quay lại bước 2.

B4: Thông báo S và kết thúc thuật toán.

Bài 7: Viết chương trình sử dụng câu lệnh lặp While ... do để tính trung bình của n số thực X1 , X2 , X3 , ..... Xn . Các số n và X1, X2, X3, ... Xn được nhập vào từ bàn phím.

Bài 8 : Viết chương trình nhập điểm của các bạn trong lớp . Sau đó in ra màn hình số bạn đạt kết quả học tập loại Giỏi ,Khá ,trung bình và kém (theo tiêu chuẩn >8 điểm :Giỏi , từ 6,5 đến 7,9 điểm : Khá , từ 5 điểm đến 6,5 điểm : Trung bình và dưới 5 điểm :Kém ).

0
25 tháng 10 2016

Câu 1 :

a) (a+b)*(a+b)*(d+e)

b) a*x*x+b*x*x+c*x

Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?

Câu 3:

Uses crt;

Var S,a,b:real;

Begin

clrscr;

Writeln('Nhap chieu dai a = '); Readln(a);

Writeln('Nhap chieu rong b = '); Readln(b);

S := a*b;

Write('Dien tich hinh chu nhat la ', S );

Readln;

End.

25 tháng 10 2016

xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal

 

11 tháng 10 2016

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

11 tháng 10 2016

à có vẻ hơi khó thiệt để ngĩ đã

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán a. In ra các phần tử là số nguyên tố của dãy b. Tính ƯCLN của tất cả các phần tử của dãy c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann d. Sắp xếp và in ra dãy sau sắp xếp 2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho...
Đọc tiếp

1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán

a. In ra các phần tử là số nguyên tố của dãy

b. Tính ƯCLN của tất cả các phần tử của dãy

c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann

d. Sắp xếp và in ra dãy sau sắp xếp

2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN

3. Viết chương trình con tính xy với x,y là 2 stn được nhập từ bàn phím

4. Viết chương trình con tính giai thừa của n với n stn được nhập từ bàn phím

5. Viết chương trình, thuật toán tìm số hoàn chỉnh, số chính phương, số nguyên tố và BCNN

6. Nhập giá trị của mảng chia hết cho 3 và 5. Sắp xếp các phần tử chia hết cho 3 và 5 theo chiều tăng dần

7. Nhập dữ liệu cho các phần tử của mảng và đưa ra màn hình mảng vừa nhận. Tính tổng của các giá trị của các phần tử tính từ các phần tử lẻ đến số lượng các phần tử lẻ

8. Viết chương trình dùng câu lệnh repeat until Tính tổng của \(A=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+...+\dfrac{1}{n\left(n+2\right)}\)

9. Viết chương trình tính hàm \(e^x=1+x+\dfrac{x^2}{2!}+....+\dfrac{x^n}{n!}\)

10. Viết chương trình tính an với a,n được nhập từ bàn phím

Các Bn viết đầy đủ thuật toán, chương trình giúp Mk nhé

1
23 tháng 3 2018

dài thế thì ai rảnh mà làm

16 tháng 3 2017

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s:3:0);

end.

16 tháng 3 2017

mình làm while do nhé, cái kia để mình tìm hiểu thêm

var S:real;

i,n:longint;

begin

writeln('n=') ; readln(n);

S:=0;

i:=1;

while (i<=n) do

begins=

S:= 9S+1/i;

i:=i+1;

end;

writeln ('S=');

end.

28 tháng 4 2023

A.6;3;6

24 tháng 3 2021

có giải thích khong ạ? em cảm ơn