Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal sau nếu sai sửa lại:

     Nguyên liệu sản xuất (Tên file Promate.pas)

 Một người dùng số tiền là U đô-la và V Euro để mua một loại nguyên liệu sản xuất. Có N công ty nước ngoài bán nguyên liệu trên được đánh số từ 1 đến N. Công ty thứ i có giá bán Ai đô la/1 kg nguyên liệu và Bi Euro/1 kg nguyên liệu. Tuy nhiên, tại mỗi công ty chỉ bán nguyên liệu cho một khách hàng hoặc theo đô-la, hoặc theo Euro. Hãy giúp người đó tìm cách chọn ra 2 công ty để mua hàng sao cho số lượng nguyên liệu sản xuất có thể mua được là nhiều nhất.

Nhập vào: Từ bàn phím 3 số theo thứ tự : N U V (1 ≤ N ≤ 20; 1 ≤ U, V ≤ 1000) và N cặp số nguyên A_i, B_i (1 < A_i, B_i < 1000), mỗi cặp trên một dòng.

In ra : Số lượng nguyên liệu S(kg) người đó mua được với 2 chữ số thập phân.

Ví dụ:

Khi làm việc với các số tự nhiên, người ta có thể sắp xếp chúng theo thứ tự từ điển, giống như xâu kí tự, chẳng hạn dãy số (1, 8, 9, 10, 11, 100) sẽ được xếp thành (1, 10, 100, 11, 8, 9). Bài toán đặt ra là: cho ba số A, B, K cần xác định số nào trong đoạn [A;B], chia hết cho K, có thứ tự từ điển nhỏ nhất?

Dữ liệu vào: Một dòng duy nhất ghi ba số nguyên A, B, K (1 ≤ A ≤ B ≤ 10⁹, 1 ≤ K ≤ 10⁹).

Dữ liệu ra: Một dòng duy nhất, ghi số nguyên dương, là số thứ tự từ điển của số tìm được trong dãy (ghi 0 nếu không có) và giá trị của số đó.

Ví dụ:

Câu 1 . Hãy đánh dấu x vào ô ở cột mà em chọn :
Cho phương trình viết trong Pascal :
\(Program\) Hinh_tron ;
\(Var\) ban_kinh , chu_vi , dien_tich : real ;
\(Const\) Pi = 3.14 ;
\(Begin\)
Writeln (' Cho biet ban kinh : ') ; readln ( ban_kinh) ; chu_vi:=2*Pi*ban_kinh;
dien_tich:=Pi*ban_kinh*ban_kinh;
Writeln ('C=' , chu_vi , 'S=' , dien_tich );readln.
End
Hãy phân biệt Từ khóa , tên , hằng , biến trong chương trình trên và đánh dấu X vào bảng sau :

Viết chương trình tính diện tích , chu vi hình chữ nhật
Help me :"}

Trong một trò chơi đổi số, mỗi cặp số nguyên dương (x,y) (1 ≤ x,y ≤ 10000) có thể được thay bởi một trong ba cặp số mới theo quy tắc sau:

- Dạng 1: (x+y,y) nếu x+y ≤ 1000.

- Dạng 2: (y,x).

- Dạng 3: (x-y,y) nếu x-y ≥ 1.

Dữ liệu: cho trong tệp DOISO.INP, gồm 1 dòng ghi bốn số nguyên dương a, b, c, d với 1 ≤ a, b, c, d ≤ 1000.

Kết quả: ghi ra tệp DOISO.OUT 2 dòng:

- Dòng 1 ghi số lượng k các phép biến đổi cần thực hiện để biến đổi cặp (a,b) thành cặp (c,d) (ghi 0 nếu không thể biến đổi được).

- Dòng 2 ghi k số, là dạng của các phép biến đổi theo thứ tự cần thực hiện.

Ví dụ:

Lập bảng chạy = tay giá trị của các biến trong 1 đoạn lệnh có sự dụng vòng lặp while .

Ví dụ : Cho đoạn lệnh sau , hãy cho biết khi thực hiện , máy tính sẽ thực hiện bao nhiêu vòng lặp , hãy lập bảng giá trị của các biến i, T trong từng vòng lặp mẫu sau :

i:= 0; T:= 10

while T >=0 do

begin i:= i+3; T= T-i; end;

Giúp em với mọi người ơi !!! mai em thi r ạ

------------------- Em cảm ơn-------------------

Cho dãy fibonacci : 1,1,2,3,5,8,...

- Yêu cầu : Viết chương trình nhập vào N, tính tổng các số có trong dãy (từ giá trị đầu của dãy và kết thúc tại giá trị N) trên là số nguyên tố

- Dữ liệu vào : Gồm 1 dòng là số N

- Dữ liệu ra : Gồm 1 dòng là tổng của các số có trong dãy fibonacci và là số nguyên tố

Ví dụ :

1, tính tổng : viết chương trình cho phép nhập số nguyên dương n từ bàn phím yêu cầu

tính và in ra màn hình tổng s= 1+3+5+7+.......2*n+1

nhanh , tui cần gấp

Cho chương trình viết trong Pascal:

Program Tinh_tien;

Var soluong: integer;

Dongia, thanhtien: real;

Const phi = 10000;

Begin

Writeln (‘Don gia: ’);

readln (Dongia);

Writeln (‘So luong : ’);

readln (soluong);

thanhtien:= soluong*Dongia + phi;

Writeln (‘So tien khach hang phai tra la: ’, thanhtien);

End.

Hãy phân biệt hằng, biến trong chương trình trên và đánh dấu X vào bảng sau:

Viết chương trình nhập vào một số nguyên dương N (10<N<10\(^{10}\)) từ bàn phím. Hãy tách số N thành hai số nguyên dương a và b, mỗi số gồm các chữ số liên tiếp nhau của N sao cho tổng a+b đạt giá trị lớn nhất.
In ra hai số a và b thỏa mãn, mỗi số trên một dòng
ví dụ