9-Trong cuộc thi giải toán qua mạng internet mỗi học sinh đều có số điểm tích lũy riêng của mình. Số điểm tích lũy của mỗi học sinh là một số nguyên dương K (0 < K ≤ 2×109). Đội tuyển của trường THCS Tài Năng có N học sinh tham gia dự thi (2 ≤ N ≤ 100). Tại buổi gặp mặt trước kỳ thi cấp tỉnh, thầy hiệu trưởng quyết định thưởng cho các học sinh trong đội tuyển Q triệu đồng, biết rằng điểm...
Đọc tiếp
9-Trong cuộc thi giải toán qua mạng internet mỗi học sinh đều có số điểm tích lũy riêng của mình. Số điểm tích lũy của mỗi học sinh là một số nguyên dương K (0 < K ≤ 2×109). Đội tuyển của trường THCS Tài Năng có N học sinh tham gia dự thi (2 ≤ N ≤ 100). Tại buổi gặp mặt trước kỳ thi cấp tỉnh, thầy hiệu trưởng quyết định thưởng cho các học sinh trong đội tuyển Q triệu đồng, biết rằng điểm tích lũy của mỗi học sinh đều chia hết cho Q.
Yêu cầu: Hãy tìm số nguyên dương Q lớn nhất.
Dữ liệu vào là một mảng gồm N số nguyên A[n] vớ N:số học sinh và a[i] là điểm tích lũy được của học sinh thứ i
10. Cho 1 dãy gồm n phần tử số nguyên a1,a2…an (0<= ai<=32000; 0<= n<=32000). Yêu cầu:
a. Đếm số lượng các số khác nhau có trong dãy.
b. Đếm số lần xuất hiện của từng phần tử trong dãy.
11-Trên một hòn đảo xinh đẹp, có n người thuộc nhiều bộ tộc sinh sống. Người dân ở đây rất hiền hòa, mỗi người thuộc một bộ tộc nào đó. Một nhà nhân chủng học muốn biết trên đảo có bao nhiêu bộ tộc. Ông nghĩ ra một cách, ông gặp và hỏi từng người trong n người trên đảo với một câu hỏi: “Bộ tộc của bạn có bao nhiêu người?”. Ông nhận được câu trả lời từ họ đó là số lượng người trong bộ tộc của họ. Từ kết quả thu được, nhà nhân chủng học sẽ xác định được số lượng bộ tộc khác nhau trên đảo.
Yêu cầu: Với n câu trả lời của n người dân, hãy xác định số lượng bộ tộc có trên đảo.
Dữ liệu đầu vào:
-số nguyên dương n biểu thị cho số người sinh sống trên đảo
-mảng A gồm n số nguyên dương,phần tử A[i] là câu trả lời của người thứ i
viết theo pascal dùm mình nhé
Câu 1:
Program hotrotinhoc;
var i,n: longint;
x,tl,tc,min,max,k: integer;
begin
write('Nhap so chu so : '); readln(k);
write('Nhap so nguyen N : '); readln(n);
max:=0; min:=99999; tl:=0; tc:=0;
while n<>0 do
begin
x:=n mod 10;
if max<x then max:=x;
if min>x then min:=x;
if x mod 2<>0 then tl:=tl+x;
if x mod 2=0 then tc:=tc+x;
x:=x div 10;
end;
writeln('Chu so lon nhat la : ',max,' ; ',' Chu so be nhat la : ',min);
writeln('Tong cac chu so la chu so le la :',tl);
write('Tong cac chu so la chu so chan la :',tc);
readln
end.
Bài 1: Sửa đề: Dòng 3: Tổng các chữ số là chữ số chẵn trong N
uses crt;
var n,k,i,x,max,min,t,t1:integer;
a:array[1..4]of integer;
st:string;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
str(n,st);
k:=length(st);
if (2<k) and (k<5) then
begin
{------------------------dong-1------------------------}
for i:=1 to k do
val(st[i],a[i],x);
max:=a[1];
min:=a[1];
for i:=1 to k do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('chu so lon nhat cua ',n,' la: ',max);
writeln('chu so nho nhat cua ',n,' la: ',min);
{----------------------dong-2------------------------}
t:=0;
for i:=1 to k do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('tong cac chu so la chu so le trong ',n,' la: ',t);
{---------------------dong-3-------------------------}
t1:=0;
for i:=1 to k do
if a[i] mod 2=0 then t1:=t1+a[i];
writeln('tong cac chu so la chu so chan trong ',n,' la: ',t1);
end
else writeln('vui long nhap lai');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var n,i,t,d,y,kt,kt1:integer;
a:array[1..3]of integer;
st:string[3];
begin
clrscr;
write('n='); readln(n);
if (100<=n) and (n<=999) then
begin
str(n,st);
d:=length(st);
{--------------------------dong-1-------------------}
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],y);
t:=t+a[i];
end;
writeln('tong cac chu so cua so ',n,' la: ',t);
{-------------------------dong-2---------------------}
kt:=0;
for i:=1 to d do
if a[i] mod 2=0 then
begin
kt:=1;
write(a[i]:4);
end;
if kt=0 then writeln('KHONG CO');
{-----------------------dong-3----------------------}
writeln;
kt1:=0;
for i:=1 to d do
if a[i] mod 2=1 then
begin
kt1:=1;
write(a[i]:4);
end;
if kt1=0 then writeln('KHONG CO');
end
else writeln('vui long nhap lai');
readln;
end.