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 | |
| | Hà Quang Tất Đạt | |
| | |
Tác giả | Thông điệp |
---|
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Fri Aug 19, 2022 11:09 am | |
| - Code:
-
const fi = 'b5d6.inp'; fo = 'b5d6.out'; var n,m,i,j,resmin,d: longint; a:array [1..100,1..100] of longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m,n); for i:=1 to m do for j:=1 to n do read(a[i,j]); resmin:=a[1,1]; for i:=1 to m do for j:=1 to n do if a[i,j] < resmin then resmin:= a[i,j]; writeln(resmin); d:=0; for i:=1 to m do for j:=1 to n do if a[i,j] = resmin then inc(d); writeln(d); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Fri Aug 19, 2022 11:10 am | |
| - Code:
-
const fi = 'b4d6.inp'; fo = 'b4d6.out'; var n,m,i,j,k,res: longint; a:array [1..100,1..100] of longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m,n,k); for i:=1 to m do for j:=1 to n do read(a[i,j]); res:=a[1,1]; for i:=1 to m do for j:=1 to n do if a[i,j] > res then res:=a[i,j]; writeln(res);
close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Fri Aug 19, 2022 12:15 pm | |
| - Code:
-
const fi = 'b6d6.inp'; fo = 'b6d6.out'; var n,m,i,j,res: longint; a:array [1..100,1..100] of longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m,n); for i:=1 to m do for j:=1 to n do read(a[i,j]); for i:=1 to m do begin res:=a[i,1]; for j:=1 to n do if res < a[i,j] then res:=a[i,j]; writeln(i,#32,res,#32); end; close(input);close(output); end.
Được sửa bởi Hà Quang Tất Đạt ngày Mon Aug 22, 2022 10:27 am; sửa lần 2. | |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Fri Aug 19, 2022 12:35 pm | |
| - Code:
-
const fi = 'b7d6.inp'; fo = 'b7d6.out'; var n,m,i,j,res: longint; a:array [1..100,1..100] of longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m,n); for i:=1 to m do for j:=1 to n do read(a[i,j]); for j:=1 to n do begin res:=a[1,j]; for i:=1 to m do if res > a[i,j] then res:=a[i,j]; writeln(j,#32,res); end; close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Fri Aug 19, 2022 2:01 pm | |
| - Code:
-
const fi = 'b9d6.inp'; fo = 'b9d6.out'; var n,m,i,j,p: longint; a:array [1..100,1..100] of longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m,n); for i:=1 to m do for j:=1 to n do read(a[i,j]); p:=0; for i:=1 to m do for j:=1 to n do if sqrt(a[i,j]) = trunc(sqrt(a[i,j])) then begin write(i,'/',j,#32); p:=1; end; if p=0 then write('-1'); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Fri Aug 19, 2022 9:05 pm | |
| - Code:
-
const fi = 'b8d6.inp'; fo = 'b8d6.out'; var n,m,i,j,s : longint; a : array [-7..100,-7..100] of longint; hang,cot: array [-7..300] of longint;
begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m,n); for i:=1 to m do for j:=1 to n do read(a[i,j]); for i:=1 to m do begin s:=0; for j:=1 to n do s:= s + a[i,j]; hang[i] := s;
end; for j:=1 to n do begin s:=0; for i:=1 to m do s:= s +a[i,j]; cot[j]:=s;
end; for i:=1 to m do writeln('hang-',i,' ',hang[i],#32); for j:=1 to n do writeln('cot-',j,' ',cot[j],#32); close(input);close(output); end.
Được sửa bởi Hà Quang Tất Đạt ngày Mon Aug 22, 2022 7:42 pm; sửa lần 2. | |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Mon Aug 22, 2022 8:57 am | |
| - Code:
-
const fi = 'b1d7.inp'; fo = 'b1d7.out'; var a:array[-3..300,-3..300] of longint; m,n,i,j: longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(m,n); for i:=1 to m do for j:=1 to n do read(a[i,j]); for i:=1 to m do begin for j:=1 to n do writeln(a[i,j]); end; close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 8:09 pm | |
| - Code:
-
const fi = 'xau1.inp'; fo = 'xau1.out'; var s: string; i: longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); writeln(s,#32,length(s)); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 8:17 pm | |
| - Code:
-
const fi = 'xau2.inp'; fo = 'xau2.out'; var s,s1: string; p,i: longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); readln(s1); //for i:=1 to length(s1) do p:=pos(s,s1); write(p); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 8:30 pm | |
| - Code:
-
const fi = 'xau3.inp'; fo = 'xau3.out'; var s,s1: string; p,i,d: longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); readln(s1); d:=0; while pos(s,s1) > 0 do begin inc(d); delete(s1 , 1 , pos(s,s1) + length(s)-1); end; write(d); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 8:42 pm | |
| - Code:
-
const fi = 'xau4.inp'; fo = 'xau4.out'; var s,s1,s2: string; i : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s1); readln(s2); s:=s1+s2; write(s); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 8:49 pm | |
| - Code:
-
[code]const fi = 'xau5.inp'; fo = 'xau5.out'; var s: string; i,d : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); d:=0; for i:=1 to length(s) do if (s[i] >= '0') and (s[i] <= '9') then inc(d); write(d); close(input);close(output); end.
[/code] | |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 9:06 pm | |
| - Code:
-
const fi = 'xau6.inp'; fo = 'xau6.out'; var s: string; i,d : longint; function xdao(u : string) : string; var t: string; i: longint; begin t:=''; for i:=1 to length(u) do t:= s[i] + t; exit(t); end; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); write(xdao(s)); close(input);close(output); end.
Được sửa bởi Hà Quang Tất Đạt ngày Tue Aug 23, 2022 9:21 pm; sửa lần 1. | |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 9:21 pm | |
| - Code:
-
const fi = 'xau7.inp'; fo = 'xau7.out'; var s: string; i,d : longint; function xdao(u : string) : string; var t: string; i: longint; begin t:=''; for i:=1 to length(u) do t:= s[i] + t; exit(t); end; function palin( u : string) : boolean; begin if (u = xdao(u)) then exit (true) else exit (false); end; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); write(palin(s)); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 9:32 pm | |
| - Code:
-
const fi = 'xau8.inp'; fo = 'xau8.out'; var s: string; i: longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); for i:=1 to length(s) do begin s[i] := upcase(s[i]); end; write(s); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 23, 2022 9:34 pm | |
| - Code:
-
const fi = 'xau9.inp'; fo = 'xau9.out'; var s: string; i: longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); for i:=1 to length(s) do begin s[i] := upcase(s[i]); end; for i:=1 to length(s) do s[i]:= chr(ord(s[i])); write(s); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Wed Aug 24, 2022 5:20 pm | |
| - Code:
-
const fi = 'xau10.inp'; fo = 'xau10.out'; var s : string; i,l : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); read(s); while s[1] = '#32' do delete(s, 1, 1); s[l] := length(s); while s[l] = '#32' do delete(s, l, 1); while pos(#32#32,s) > 0 do delete(s, pos(#32#32,s), 1); write(s); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Wed Aug 24, 2022 5:48 pm | |
| - Code:
-
const fi = 'xau11.inp'; fo = 'xau11.out'; var s : string; i,d,l : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); read(s); d:=0; while s[1] = '#32' do delete(s, 1 , 1); while s[length(s)] = ' ' do delete(s, length(s) , 1); while pos(#32#32 , s) > 0 do delete(s, pos( #32#32 , s) , 1); if s[1] <> #32 then inc(d); for i:=1 to length(s) do if (s[i] = #32 ) then inc(d); write(d); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Wed Aug 24, 2022 6:00 pm | |
| - Code:
-
const fi = 'xau12.inp'; fo = 'xau12.out'; var s : string; i : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); read(s); while s[1] = '#32' do delete(s, 1 , 1); while s[length(s)] = ' ' do delete(s, length(s) , 1); while pos(#32#32 , s) > 0 do delete(s, pos( #32#32 , s) , 1); s[1] := upcase(s[1]); for i:=1 to length(s) do if (s[i] = ' ' ) then s[i+1]:=upcase(s[i+1]); write(s); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Wed Aug 24, 2022 8:25 pm | |
| - Code:
-
const fi = 'xau14.inp'; fo = 'xau14.out'; var s,x : string; i : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); read(s); x := ''; s :=s + 'a'; for i:=1 to length(s) do if s[i] in ['0'..'9'] then x := x + s[i] else if (s[i] ='-') and (x ='') then x := s[i] else if length(s) > 0 then begin if x <> '-' then write(x,#32); if (s[i] = '-') then x:='-' else x:=''; end;
close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Wed Aug 24, 2022 8:54 pm | |
| - Code:
-
uses crt; const fi = 'xau15.inp'; fo = 'xau15.out'; var s,xau : string; i: longint; max: char; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); max:='0'; for i:=1 to length(s) do if (s[i] in ['1'..'9']) and (s[i]>max) then max:=s[i]; if pos(max,s)=0 then write(-1) else write(max); write(max); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 25, 2022 7:39 pm | |
| - Code:
-
const fi = 'xau10c2.inp'; fo = 'xau10c2.out'; var s,s1: string; p : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); s:=' ' + s; s1:= ' '; while pos(s1,s) > 0 do begin p:= pos(s1,s); delete(s,p,1); end; if s[1] = #32 then delete(s,1,1); if s[length(s)] = #32 then delete(s,length(s),10); write(s); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 25, 2022 7:50 pm | |
| - Code:
-
const fi = 'xau11c2.inp'; fo = 'xau11c2.out'; var s,s1 : string; p,d,i : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); s:=' ' + s; s1:= ' '; while pos(s1,s) > 0 do begin p:= pos(s1,s); delete(s,p,1); end; d:=0; if s[1] = #32 then delete(s,1,1); if s[length(s)] = #32 then delete(s,length(s),10); for i:=1 to length(s) do if s[i] = #32 then inc(d); write(d+1); close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 25, 2022 8:26 pm | |
| - Code:
-
const fi = 'xau13.inp'; fo = 'xau13.out'; var s,s1 : string; p,d,i,j,n : longint; tam : char; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); n:= length(s); for i:=1 to n-1 do for j:=i+1 to length(s) do if s[i] > s[j] then begin tam := s [i]; s[i]:= s [j]; s[j]:= tam; end; d:=1; for i:=1 to n do if s[i] = s[i+1] then inc(d) else begin writeln(s[i],#32,d); d:=1; end; close(input);close(output); end.
| |
| | | Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 25, 2022 9:04 pm | |
| - Code:
-
const fi = 'xau14c2.inp'; fo = 'xau14c2.out'; var s,t : string; k,i,x : longint; c : array[1..100] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(s); k:=0 ; s:= s + ' '; s:= ' ' + s; for i:=1 to length(s) do if s[i] in ['0'..'9'] then t := t + s[i] else if t <> '' then begin val(t,x); k := k+1; c[k] := x; t := ''; end; for i:=1 to k do write(c[i],#32); close(input);close(output); end.
| |
| | | Sponsored content
| Tiêu đề: Re: Hà Quang Tất Đạt | |
| |
| | | | Hà Quang Tất Đạt | |
|
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |