uses crt;
var a:array[1..100]of integer;
i,n,t,max,kq,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=0;
for i:=1 to n do
begin
t:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then t:=t+j;
if max<=t then
begin
max:=t;
kq:=a[i];
end;
end;
writeln('So co tong cac uoc lon nhat trong day la: ',kq);
readln;
end.
Bạn nào giải giúp mình bài này với!!
Cho một mảng N số nguyên dương, nhiệm vụ của bạn là đếm số lượng dãy con lien tiếp có tổng bằng X.Dữ liệu vào: File xsum1.inp gồm:
+ Dòng 1: ghi hai số nguyên N và X kích thước của dãy và tổng mục tiêu X.+ Dòng 2: Ghi N số nguyên a1,a2, … ,aN là các phần tử của dãy.
Dữ liệu ra: File xsum1.out gồm duy nhất một số là số lượng dãy con có tổng bằng x.Ràng buộc
1≤ n ≤ 2 ⋅105
1≤ x,ai ≤109
Ví dụ
Xsum1.inp | Xsum1.out |
5 72 4 1 2 7 | 3 |
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 đó.
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
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 )
Thực hiện viết chương trình:
- Tính tổng các số từ M đến N.
- Đếm các số chẵn (lẻ), chia hết cho 3 từ M đến N.
- Kiểm tra 1 số nguyên nhập vào từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết cho 3 hay không.
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
Tâm mở một cửa hàng bán văn phòng phẩm. Trong ngày khai trương, để ”mua may bán đắt”, Tâm quan niệm rằng khi khách hàng mua một sản phẩm nào đó thì phải trả đúng với số tiền của sản phẩm để Tâm không phải trả lại tiền thừa cho khách hàng.
Nam là bạn thân của Tâm đến mua hàng. Nam hiện có N tờ tiền, mỗi tờ tiền M đều có giá trị khác nhau. Giả thiết rằng với số tiền của Nam hiện có đều có thể mua được một số sản phẩm trong cửa hàng.
Yêu cầu: Vì Nam không quen với việc tính toán, em hãy giúp Nam tính xem với N tờ tiền như vậy thì Nam không thể mua sản phẩm có giá trị nhỏ nhất (Min) là bao nhiêu?
Dữ liệu vào: File văn bản BUY.INP
Dòng thứ nhất là số N (0Dòng thứ hai có N tờ tiền, mỗi tờ tiền M cách nhau một khoảng trắng (0Dữ liệu ra: File văn bản BUY.OUT
- Gồm một số nguyên dương Min cần tìm.
Ví dụ:
BUY.INP
5
1 2 4 9 100
BUY.OUT: 8
b)
BUY.INP: 3
1 2 3
BUY.OUT: 7
Cho 2 dãy số A và B. Hãy tìm GCD lớn nhất giữa 2 số trong A và B.
VD: A = {2; 3; 4; 5}; B = {19; 20; 21; 22; 23; 24}
Kết quả là 5.
Giải thích: GCD(2;19)=1; GCD(2;20)=2; GCD(2;21)=1;....
GCD(3;19)=1; ....
GCD(5; 20)=5 - lớn nhất.
Input:
Dòng đầu: n
N dòng tiếp theo ghi A[i]
Dòng tiếp theo: m
M dòng tiếp theo ghi B[i]
Ràng buộc:
- \(n,m\le10^9\)
Output: Kết quả bài toán
