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 | |
| | đỗ 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 đề: đỗ hoàng phúc Mon Nov 07, 2022 4:54 pm | |
| - Code:
-
var a,b,c,d: longint; s,p : real; begin assign(input, 'no1.inp'); reset(input); assign(output,'no1.out'); rewrite(output);
read(a,b,c,d); s:=(sqr(a)+sqr(b))/(c+d); p:=(sqr(a)*a+b)/((c/d)+(1/(a-b))); write(s:0:2,#32,p: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 Mon Nov 07, 2022 5:11 pm | |
| - Code:
-
var a,b,c: longint; p,d : real; x1,x2 : real; begin readln(a,b,c); p := sqr(b)- 4*a*c; if p >= 0 then begin d := sqrt(p); x1:= (-b+d)/2*a; x2:= (-b-d)/2*a; writeln(d,#32,x1:0:2,#32,x2:0:2); end; end. | |
| | | hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: đỗ hoàng phúc Mon Nov 07, 2022 5:16 pm | |
| - Code:
-
uses math; var n,n1,n2 : longint; begin readln(n); n1 := n mod 10; n2 := n div 10; writeln(max(n1,n2)); end.
| |
| | | hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: đỗ hoàng phúc Mon Nov 07, 2022 5:25 pm | |
| - Code:
-
var n,s : real; begin assign(input, 'SPECIAL.INP'); reset(input); assign(output, 'SPECIAL.OUT'); rewrite(output);
readln(n); s := (sqr(n)+ 2*n) / (sqr(n) + 2*n + 1); writeln(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 Mon Nov 07, 2022 5:30 pm | |
| - Code:
-
var n: Integer; res : longint; function tsc (u : Longint) : longint; var res : longint; begin res := 1; while u > 0 do begin res := res * (u mod 10); u := u div 10; end; exit(res); end; begin readln(n); res := tsc(n); writeln(res); end. | |
| | | hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: đỗ hoàng phúc Mon Nov 07, 2022 5:57 pm | |
| - Code:
-
var n,i: Integer; res,a,b,c : Byte; begin readln(n); i := 1; a := n mod 10; b := (n div 10) mod 10; c := n div 100; res := high(Integer); if (a mod 2 = 0) and (res > a) then res := a; if (b mod 2 = 0) and (res > b) then res := b; if (c mod 2 = 0) and (res > c) then res := c; if res = 0 then writeln('none') else writeln(res) end. | |
| | | hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: đỗ hoàng phúc Mon Nov 07, 2022 6:18 pm | |
| - Code:
-
var dai,x0,x1,y0,y1,r:real; begin readln(x0,x1,y0,y1,r); dai:=sqrt(sqr(x0-x1)+sqr(y0-y1)); if dai<=r then writeln(true) else writeln(false); end.
| |
| | | hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: đỗ hoàng phúc Mon Nov 07, 2022 6:24 pm | |
| - Code:
-
uses math; var a,b : Integer; begin readln(a,b); write(max(a,b),min(a,b)); end. | |
| | | hoangphuc01122008
Tổng số bài gửi : 151 Join date : 03/06/2022
| Tiêu đề: Re: đỗ hoàng phúc Mon Nov 14, 2022 5:17 pm | |
| - Code:
-
var a,b : longint; function ucln (l,r : longint) : longint; begin while l <> r do if l > r then l := l-r else r := r-l; exit(l); end; begin readln(a,b); writeln(ucln(a,b)); end.
| |
| | | Sponsored content
| Tiêu đề: Re: đỗ hoàng phúc | |
| |
| | | | đỗ hoàng phúc | |
|
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
| |
| |
| |