uses crt;
var a,dv,ch:integer;
begin
clrscr;
write('Nhap a='); readln(a);
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
writeln('Chu so hang don vi la: ',dv);
writeln('Chu so hang chuc la: ',ch);
readln;
end.
Viết chương trình pascal thực hiện các công việc sau :
A) nhập 1 mảng số nguyên gồm N phần tử .
B) In ra màng hình các phần tử khác X và tính tổng các phần tử khác X
( với N và X là 2 số nguyên nhập từ bàn phím )
câu 1 em hãy sử dụng công thức hê-rông lập chương trình tính và hiển thị ra màn hình máy tính diện tích hình tam giác với chiều dài 3 canh a,b,c được nhập từ bàn phím (lưu ý dùng p=(a+b+c)/2)
câu 2 hãy lập chương trình nhập từ bàn phím một dãy số nguyên n phần tử (với n<=100). Sau đó a) tính tổng giá trị các phần tử trong dãy và hiển thị ra màn hình
b) tìm và hiển thị ra màn hình phần tử có giá trị nhỏ nhất, lớn nhất trong dãy
Viết chương trình pascal in ra số lớn hơn hoặc nhỏ hơn trong 2 số nguyên a,b được nhập từ bàn phím
nhập số nguyên N viết công thức in ra màn hình tất cả các ước của n. hướng dẫn cho i chạy từ 1 tới N nếu N chia hết cho i thì in ra màn hình i
lập trình in ra màn hình tất cả các xâu nhị phân độ dài n=6 thỏa mãn điều kiện không chưa 3 số 0 liên tiếp
Nhập vào một dãy gồm N phần tử. N <= 5 và >= 10 và n phần tử của dãy a, A[i] <1 và >100 (có kiểm tra dữ liệu khi nhập).
A, In ra các phần tử là số nguyên tố của dãy
B. Tìm ƯCLN của tất ca phần tử trong dãy.
C. Tính biểu thức sau S= a11 + a22 + … + ann
D. Sắp xếp dãy tăng dần và in ra dãy sau xắp xếp.
Cho một dãy số gồm N số nguyên và một số nguyên dương k. Hãy tìm một dãy con dài nhất liên tiếp nhau sao cho tổng chia hết cho k.
Dữ liệu vào: từ file DAYSO.INP có dạng:
- Dòng đầu tiên là hai số N và k (N<=500000; k<=10000);
- Các dòng tiếp theo là N số nguyên của dãy (các số kiểu Longint), mỗi số trên một dòng.
Kết quả: ra file DAYSO.OUT gồm một dòng duy nhất chứa hai số m và s, trong đó m là độ dài lớn nhất tìm được và s là vị trí bắt đầu của dãy đó.
Mọi người ơi giúp em với ạ
Viết chương trình nhập vào đơn giá một mặt hàng và số lượng bán của mặt hang
tính tiền khách phải trả,với thông tin như sau:
- Thành tiền: đơn giá* số lượng
- Giảm giá: nếu thành tiền > 100, thì giảm 3 % thành tiền, ngược lại không giảm
- Tổng tiền phải trả : thành tiền - giảm giá
Cho dãy số (a1, a2, a3, ..., an) là một hoán vị bất kỳ của tập hợp (1, 2, 3, ..., n). Dãy số (b1, b2, b3, ..., bn) gọi là nghịch thế của dãy a nếu bi là số phần tử đứng trước số i trong dãy a mà lớn hơn i.
Ví dụ:
Dãy a là: 3 2 5 7 1 4 6
Dãy b là: 4 1 0 2 0 1 0
a. Cho dãy a, hãy xây dựng chương trình tìm dãy b.
b. Cho dãy b, xây dựng chương trình tìm dãy a.
Dữ liệu vào: Trong file NGICH.INP với nội dung:
-Dòng đầu tiên là số n (1 <= n <= 10 000).
-Các dòng tiếp theo là n số của dãy a, mỗi số cách nhau một dấu cách,
-Các dòng tiếp theo là n số của dãy b, mỗi số cách nhau bởi một dấu cách.
Dữ liệu ra: Trong file NGHICH.OUT với nội dung:
-N số đầu tiên là kết quả của câu a
-Tiếp đó là một dòng trống và sau đó là n số kết quả của câu b (nếu tìm được dãy a).
