Bài 1: Cho số nguyên dương N (N<1010).
Hãy in ra biểu diễn số N bởi tích của các số nguyên tố.
Ví
dụ:
|
Input
|
Output
|
|
100
|
2 2 5 5
|
|
101
|
101
|
|
126
|
2 3 3 7
|
|
1000
|
2 2 2 5 5 5
|
|
2011
|
2011
|
|
65535
|
3 5 17 257
|
Bài 2:
Cho dãy số
nguyên gồm N số
a. Tìm giá trị nhỏ nhất (u) và giá trị
lớn nhất (v) trong dãy
b. In ra các số nguyên trên đoạn từ u
đến v không có trong dãy.
Input: Tệp văn bản TIMSO.INP
-
Dòng
thứ nhất gồm 1 số N là số phần tử của dãy (N £ 100)
-
Dòng
thứ hai có N số nguyên
Output: Tệp văn bản TIMSO.OUT
-
Dòng
thứ nhất 2 giá trị u và v
-
Dòng
thứ hai là các số nguyên trên đoạn từ u đến v không có trong dãy đã cho.
Ví
dụ:
|
Input
|
Output
|
|
5
4
9 11 2 5
|
2 11
3
6 7 8 10
|
const
Trả lờiXóanhap='ngto.inp';
xuat='ngto.out';
var
i,n:integer;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
readln(n);
i:=2;
while n>1 do
begin
while n mod i<>0 do i:=i+1;
write(i,' ');
n:=n div i;
end;
close(input);close(output);
end.
const
Trả lờiXóanhap='timso.inp';
xuat='timso.out';
var
i,n,j,tg:integer;
a:array[1..100] of longint;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
writeln(a[1],' ',a[n]);
for i:=a[2] to a[n-1] do
write(i);
close(input);close(output);
end.
cả hai bài trên là do đạt đtr làm