Bài tập ngày 7-10-08 (Cô Nhung)

Bài 1: Số dư thừa

Số tự nhiên N gọi là dư thừa nếu tổng các ước số của N ( bao gồm cả 1 nhưng không có N ) lớn hơn N

Bài toán:

Tìm số M là số dư thừa nhỏ nhất không nhỏ hơn N

Tên tập tin chương trình: ANUM.PAS

Dữ liệu:

Cho trong file văn bản ANUM.INP, gồm số tự nhiên N

Kết quả:

Cho trong tập tin văn bản ANUM.OUT, gồm số M là số dư thừa nhỏ nhất không nhỏ hơn N. Giả sử rằng kết quả là số tự nhiên không quá 10000.

Ví dụ:

ANUM.INP ANUM.OUT
6 12

Giải thích:
3+2+1=6
1<7
4+2+1<8
3+1<9
5+2+1<10
1<11
6+4+3+2+1>12


Bài 2:


Trong 1 dãy số nguyên, số lần mà 1 số nguyên xuất hiện được gọi là tần số của số nguyên đó. Tần số lớn nhất của dãy số nguyên là tần số lớn nhất trong các tần số của các số nguyên của dãy.

Bài toán:

Cho 1 dãy các số nguyên, tìm tần số lớn nhất của dãy số nguyên đó.

Dữ liệu: Cho trong tập tin MAX.INP gồm nhiều dòng. Dòng đầu chứa số nguyên duy nhất N ( 1<=N<=10000 ) chỉ số phần tử của dãy số nguyên. Mỗi dòng trong N dòng tiếp theo chứa 1 số nguyên n ( 1<=n<=1000) của dãy đó.

Kết quả: Cho trong tập tin văn bản MAX.OUT chứa 1 số nguyên duy nhất chỉ tần số lớn nhất của dãy số nguyên tương ứng trong tập tin dữ liệu.

Ví dụ 1:

MAX.INP
12
1
2
5
6
3
7
11
345
754
2
5
2

MAX.OUT
3

Ví dụ 2:

MAX.INP
7
2
4
6
7
7
2
4

MAX.OUT
2

Post ji` ma` lên lớp nhanh Vai~ !!!!!

stamper đã viết:

Post ji` ma` lên lớp nhanh Vai~ !!!!!

Post sách với phần mềm

program anum;
const fi='anum.inp';
fo='anum.out';
type mang=array[1..100] of integer;
var n:integer; A:mang;
{--------------}
procedure nhap;
var f:text;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
{-----------------}
function kt(n:integer):boolean;
var i,j,s:integer;
begin
j:=0;
for i:=1 to n-1 do
if n mod i=0 then
begin
inc(j);
A[j]:=i;
end;
kt:=false;
s:=0;
For i:=1 to n do s:=s+A[i];
if s>n then kt:=true;
end;
{-----------------}
procedure xuly;
var f:text; h:boolean;
begin
assign(f,fo);
rewrite(f);
h:=kt(n);
while h=false do
begin
inc(n);
h:=kt(n);
end;
write(f,n);
close(f);
end;
{-----------------}
begin
nhap;
xuly;
end.

{******************************************************}
program max;
const fi='max.inp';
fo='max.out';
type mang=array[1..100] of integer;
var n:integer;
A:mang;
{--------------}
procedure nhap;
var f:text;
i:integer;
begin
assign(f,fi);
reset(f);
read(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;
{---------------}
procedure xuly;
var f:text;
dem,i,j,max:integer;
begin
assign(f,fo);
rewrite(f);
dem:=0;
max:=0;
for i:=1 to n do
begin
for j:=1 to n do
if A[j]=A[i] then inc(dem);
if dem>max then max:=dem;
dem:=0;
end;
write(f,max);
close(f);
end;
{------------------}
begin
nhap;
xuly;
end.

Oh ! Tiếc wá hum nay hok đi học oy` !

sao mà nhìu bài thế? mà tai sao hok tự làm đem lên chi zậy?

xathiman lúc nào cũng tiên phong nhỉ

Lần sau phải tham gia mới được