May 2024 | Mon | Tue | Wed | Thu | Fri | Sat | Sun |
---|
| | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | Calendar |
|
Top posting users this week | |
| | Nguyễn Tuấn Anh | |
| | Tác giả | Thông điệp |
---|
Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:19 pm | |
| var i,n:longint; begin assign(input,'bai10.inp');reset(input); assign(output,'bai10.out');rewrite(output); readln(n); for i:=1 to n do if n mod i=0 then if i mod 2=0then writeln(i); close(input); close(output); end. | |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Re: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:22 pm | |
| var i,dem,n:longint; begin assign(input,'bai9.inp');reset(input); assign(output,'bai9.out');rewrite(output); readln(n); for i:=1 to n do if n mod i=0 then inc(dem); writeln(dem); close(input); close(output); end.
| |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:23 pm | |
| var dem,i,n:longint; begin assign(input,'bai8.inp');reset(input); assign(output,'bai8.out');rewrite(output); readln(n); for i:=1 to n do if sqrt(i)=trunc(sqrt(i)) then inc(Dem); writeln(dem); close(input); close(output); end.
| |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:24 pm | |
| var i,n:longint; s:real; begin assign(input,'bai7.inp');reset(input); assign(output,'bai7.out');rewrite(output); readln(n); for i:=1 to 2*n-1 do s:=1+1/(2*n-1); writeln(s:0:3); close(input); close(output); end. | |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:24 pm | |
| var S,p,a,b,c:real; begin assign(input,'BAI6.inp'); reset(input); assign(output,'BAI6.out'); rewrite(output); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a) then begin p:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(S:0:2); end else writeln('none'); close(input); close(output); end.
| |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:25 pm | |
| var rmin,a,b,c:longint; begin assign(input,'bai5.inp');reset(input); assign(output,'bai5.out');rewrite(output); readln(a,b,c); rmin:=a; if rmin>b then rmin:=b; if rmin>c then rmin:=c; writeln(rmin); close(input); close(output); end. | |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:25 pm | |
| var n:longint; begin assign(input,'bai4.inp');reset(input); assign(output,'bai4.out');rewrite(output); readln(n); if (n mod 5<>0) and (n mod 3=0) then writeln(true) else writeln(false); close(input); close(output); end.
| |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:29 pm | |
| var d,x1,x2,y1,y2:real; begin assign(input,'bai2.inp');reset(input); assign(output,'bai2.out');rewrite(output); readln(x1,x2,y1,y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); writeln(d:0:2); close(input); close(output); end.
| |
| | | Nguyễn Tuấn Anh
Tổng số bài gửi : 29 Join date : 26/10/2022 Age : 16
| Tiêu đề: Nguyễn Tuấn Anh Sun Dec 11, 2022 12:30 pm | |
| var dAB,dAC,dBC,x1,x2,y1,y2,x3,y3:real; begin assign(input,'bai3.inp');reset(input); assign(output,'bai3.out');rewrite(output); readln(x1,y1,x2,y2,x3,y3); dAB:=sqrt(sqr(x2-x1)+sqr(y2-y1)); dAC:=sqrt(sqr(x3-x1)+sqr(y3-y1)); dBC:=sqrt(sqr(x3-x2)+sqr(y3-y2)); writeln(dAB:0:3,#32,dAC:0:3,#32,dBC:0:3); close(input); close(output); end.
| |
| | | Sponsored content
| Tiêu đề: Re: Nguyễn Tuấn Anh | |
| |
| | | | Nguyễn Tuấn Anh | |
|
Trang 1 trong tổng số 1 trang | |
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |