| Đỗ Hoàng Phúc | |
|
|
|
Tác giả | Thông điệp |
---|
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Wed Aug 03, 2022 9:19 am | |
| - Code:
-
var i,n : Integer; begin assign(input,'no5.inp');reset(input); assign(output,'no5.out');rewrite(output);
read(n); for i := 1 to n do if sqrt(i) = trunc(sqrt(i)) then write(i,#32);
close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Wed Aug 03, 2022 9:29 am | |
| - Code:
-
var i,n : Longint; begin assign(input, 'no6.inp');reset(input); assign(output, 'no6.out'); rewrite(output);
read(n); for i := 1 to n do if n mod i = 0 then write(i,#32);
close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 04, 2022 2:12 pm | |
| - Code:
-
{cho n : đếm số lượng ước nguyên dương của n} var n ,i ,res: Longint; begin assign(input, 'no10.inp');reset(input); assign(output,'no10.out');rewrite(output); read(n); res := 0; for i := 1 to n do if n mod i = 0 then inc(res); write(res); close(input); close(output); end.
| |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 04, 2022 2:22 pm | |
| - Code:
-
{cho n : đếm số lượng ước nguyên dương của n 2} var n ,i ,res: Longint; begin assign(input, 'no10.inp');reset(input); assign(output,'no10.out');rewrite(output); read(n); res := 0; for i := 1 to trunc(sqrt(n)) do if n mod i = 0 then begin inc(res); if i <> n div i then inc(res); end; write(res); close(input); close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 04, 2022 2:37 pm | |
| - Code:
-
{cho n :liệt kê các ước chãn của n} var i,n : Longint; begin assign(input, 'no11.inp');reset(input); assign(output, 'no11.out');rewrite(output); read(n); for i := 1 to n do if (n mod i = 0) and (i mod 2 =0) then write(i,#32); close(input);close(output); end.
| |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 04, 2022 2:56 pm | |
| - Code:
-
var i,n,res : Longint; begin assign(input,'no12.inp');reset(input); assign(output, 'no12.out');rewrite(output); read(n); for i := 1 to trunc(sqrt(n)) do if n mod i = 0 then begin inc(res); if i <> n div i then inc(res); end; if res = 2 then write(true) else write(false); end.
| |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 04, 2022 3:33 pm | |
| - Code:
-
var i ,a ,b: Longint; function nt(u : Longint): Boolean; var J : Longint; begin if (u <= 1) then exit(false); for j := 2 to trunc(sqrt(u)) Do if u mod j = 0 then exit(false); exit(true); end; begin assign(input,'no13.inp');reset(input); assign(output, 'no13.out');rewrite(output); read(a ,b); for i := a to b do if nt(i) then write(i,#32); close(input);close(output) end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Mon Aug 08, 2022 8:13 pm | |
| - Code:
-
var s: real; i: Longint; begin assign(output,'no1.out');rewrite(output); i := 1; s := 0; while s > 0.001 do begin s := s + (1/i); inc(i); end; write(s:0:3); close(output); end.
| |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Mon Aug 08, 2022 8:55 pm | |
| - Code:
-
{cho a,b tim uoc chung lon nhat cua a,b} uses math; var res,i,a,b,p : Longint; begin assign(input,'no2.inp');reset(input); assign(output,'no2.out');rewrite(output); read(a,b); res := 0; i :=1; p:= min(a,b); while (i <= p) Do if (a mod i = 0) and (b mod i = 0) then begin res := max(i ,res); inc(i); end else inc(i); write(res); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Mon Aug 08, 2022 9:14 pm | |
| - Code:
-
var m : Longint; procedure pt(a : Longint); var i: Longint; begin i := 2; while i * i <= a do if a mod i = 0 then begin write(i,#32); a := a div i; end else inc(i); if a > 1 then write(a); end; begin read(m); pt(m); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Mon Aug 08, 2022 9:25 pm | |
| - Code:
-
var n,res : Longint; function nt(u : Longint): Boolean; var J : Longint; begin if (u <= 1) then exit(false); for j := 2 to trunc(sqrt(u)) Do if u mod j = 0 then exit(false); exit(true); end; begin read(n); res := n + 1; while (nt(res)) = false Do inc(res); write(res); end.
| |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 10:59 am | |
| - Code:
-
var s: real; i: Longint; begin assign(output,'no1.out');rewrite(output); i := 1; s := 0; while s > 0.001 do begin s := s + (1/i); inc(i); end; write(s:0:3); close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:00 am | |
| - Code:
-
{cho a,b tim uoc chung lon nhat cua a,b} uses math; var res,i,a,b,p : Longint; begin assign(input,'no2.inp');reset(input); assign(output,'no2.out');rewrite(output); read(a,b); res := 0; i :=1; p:= min(a,b); while (i <= p) Do if (a mod i = 0) and (b mod i = 0) then begin res := max(i ,res); inc(i); end else inc(i); write(res); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:00 am | |
| - Code:
-
var i,n : Longint; res,s : real; begin assign(input, 'no1.inp');reset(input); assign(output, 'no1.out');rewrite(output);
read(n); s := 0; for i := 2 to n do begin res := (1/i) + (1/(i + 1)); s := s + res ; end; write(s:0:2); close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:01 am | |
| - Code:
-
var i,n : Longint; s : real; begin assign(input, 'no2.inp'); reset(input); assign(output,'no2.out'); rewrite(output);
read(n); s := 0; for i := 1 to n do s := s + 1/(2*i-1); write(s:0:3);
close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:01 am | |
| - Code:
-
var i,n: Longint; s : Int64; begin assign(input,'no3.inp');reset(input); assign(output,'no3.out');rewrite(output);
read(n); s := 1; for i := 1 to n do s := s * i; write(s);
close(input);close(output) end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:02 am | |
| - Code:
-
var i,n : Longint; begin assign(input,'no4.inp');reset(input); assign(output,'no4.out'); rewrite(output);
read(n); for i := 1 to n do if (i mod 2 = 0) and (i mod 3 <> 0) then write(i ,#32);
close(input); close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:02 am | |
| - Code:
-
var i,n : Integer; begin assign(input,'no5.inp');reset(input); assign(output,'no5.out');rewrite(output);
read(n); for i := 1 to n do if sqrt(i) = trunc(sqrt(i)) then write(i,#32);
close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:02 am | |
| - Code:
-
var i,n : Longint; begin assign(input, 'no6.inp');reset(input); assign(output, 'no6.out'); rewrite(output);
read(n); for i := 1 to n do if n mod i = 0 then write(i,#32);
close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:04 am | |
| - Code:
-
{cho n : đếm số lượng ước nguyên dương của n} var n ,i ,res: Longint; begin assign(input, 'no10.inp');reset(input); assign(output,'no10.out');rewrite(output); read(n); res := 0; for i := 1 to trunc(sqrt(n)) do if n mod i = 0 then begin inc(res); if i <> n div i then inc(res); end; write(res); close(input); close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:04 am | |
| - Code:
-
{cho n :liệt kê các ước chãn của n} var i,n : Longint; begin assign(input, 'no11.inp');reset(input); assign(output, 'no11.out');rewrite(output); read(n); for i := 1 to trunc(sqrt(n)) do if (n mod i = 0) then if (i <> n div i) and ((n div i) mod 2 = 0) then write(i,#32); close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:05 am | |
| - Code:
-
var i,n,res : Longint; function nt(u : Longint): Boolean; var J : Longint; begin if (u <= 1) then exit(false); for j := 2 to trunc(sqrt(u)) Do if u mod 1 = 0 then exit(false); exit(true); end; begin assign(input,'no12.inp');reset(input); assign(output,'no12.out');rewrite(output); read(n); write(nt(n)); close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:05 am | |
| - Code:
-
var i ,a ,b: Longint; function nt(u : Longint): Boolean; var J : Longint; begin if (u <= 1) then exit(false); for j := 2 to trunc(sqrt(u)) Do if u mod j = 0 then exit(false); exit(true); end; begin assign(input,'no13.inp');reset(input); assign(output, 'no13.out');rewrite(output); read(a ,b); for i := a to b do if nt(i) then write(i,#32); close(input);close(output) end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:05 am | |
| - Code:
-
uses math; var i,n,m: Longint; begin assign(input, 'no14.inp');reset(input); assign(output, 'no14.out');rewrite(output); read(n ,m); for i := 1 to min(n,m) do if (m mod i = 0) and (n mod i = 0) then write(i , #32); close(input);close(output); end. | |
|
| |
hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: Đỗ Hoàng Phúc Thu Aug 11, 2022 11:06 am | |
| - Code:
-
uses math; var i,n,m: Longint; begin assign(input, 'no14.inp');reset(input); assign(output, 'no14.out');rewrite(output); read(n ,m); for i := 1 to min(n,m) do if (m mod i = 0) and (n mod i = 0) then write(i , #32); close(input);close(output); end. | |
|
| |
Sponsored content
| Tiêu đề: Re: Đỗ Hoàng Phúc | |
| |
|
| |
| Đỗ Hoàng Phúc | |
|