Nguyễn Trung Dũng

Tiêu đề: Re: Nguyễn Trung Dũng Mon Aug 22, 2022 9:01 am

var a:array[-3..300,-3..300] of longint;
n,m,i,j:longint;
begin
assign (input,'bai1.inp');
assign (output,'bai1.out');
reset (input);
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
write (a[i,j],#32);
writeln;
end;
close(input);close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Mon Aug 22, 2022 9:38 am

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.

Tiêu đề: Re: Nguyễn Trung Dũng Mon Aug 22, 2022 9:59 am

Var a:array[-7..107,-7..107] of longint;
m,n,i,j,res: longint;
Begin
Assign(Input,'CBB5D2.INP');
Assign(Output,'CBB5D2.OUT');
Reset(Input);
Rewrite(Output);
Readln(m,n);
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];
Write(res);
Close(Input);
Close(OUtput);
End.

Tiêu đề: Re: Nguyễn Trung Dũng Mon Aug 22, 2022 10:17 am

var
i,j,m,n,res: longint;
a : array[-3..300,-3..300] of longint;
begin
assign(input, 'no5.inp');reset(input);
assign(output, 'no5.out');rewrite(output);

   read(m,n);
   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(output);close(input);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 8:14 pm

var s:string;
p:longint;
begin
assign(input,'x1.inp');
assign(output,'x1.out');
reset(input);
rewrite(output);
readln(s);
p:=length(s);
write(s,#32,p);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 8:21 pm

var s1,s2:string;
p:longint;
begin
assign(input,'x2.inp');
assign(output,'x2.out');
reset(input);
rewrite(output);
readln(s1,s2);
p:=pos(s1,s2);
write(s1);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 8:31 pm

var s1,s2:string;
res:longint;
begin
assign(input,'x2.inp');
assign(output,'x2.out');
reset(input);
rewrite(output);
res:=0;
if pos(s1,s2)>0 then
begin
res:=res+1;
delete(s2,1,pos(s1,s2)+length(s1)-1);
end;
write(res);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 8:43 pm

Code:: var s,s1,s2:string;
begin
   assign(input,'x2.inp');
   assign(output,'x2.out');
   reset(input);
   rewrite(output);
   readln(s1,s2);
   s:=s1+s2;
   close(input);
   close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 9:00 pm

var s,s1:string;
i,res:longint;
begin
assign(input,'x5.inp');
assign(output,'x5.out');
reset(input);
rewrite(output);
readln(s);
res:=0;
for i:=1 to length(s) do
if ('0'<=s[i])and(s[i]<='9') then
res:=res+1;
write(res);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 9:11 pm

var s,tam:string;
i:longint;
begin
assign(input,'x6.inp');
assign(output,'x6.out');
reset(input);
rewrite(output);
readln(s);
tam:='';
for i:=1 to length(s) do
tam:=s[i]+tam;
write(tam);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 9:20 pm

var s,tam:string;
i:longint;
begin
assign(input,'x7.inp');
assign(output,'x7.out');
reset(input);
rewrite(output);
readln(s);
tam:='';
for i:=1 to length(s) do
tam:=s[i]+tam;

if s=tam then
write (true)
else
write(false);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Tue Aug 23, 2022 9:29 pm

Code:: var s:string;
i:longint;
begin
assign(input,'x8.inp');
assign(output,'x8.out');
reset(input);
rewrite(output);
readln(s);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
write(s);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Thu Aug 25, 2022 7:41 pm

var s1,s:string;
p:longint;
begin
assign(input,'x10.inp');
assign(output,'10.out');
reset(input);
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]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);
write(s);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Thu Aug 25, 2022 7:53 pm

var s1,s:string;
p,res,i:longint;
begin
assign(input,'x11.inp');
assign(output,'x11.out');
reset(input);
rewrite(output);
readln(s);
res:=0;
s:=' '+s;
s1:=' ';
while pos(s1,s)>0 do
begin
p:=pos(s1,s);
delete(s,p,1);
end;
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);
for i:=1 to length(s) do
if s[i]=' ' then res:=res+1;
write(res);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Thu Aug 25, 2022 8:06 pm

var s,s1:string;
p,i:longint;
begin
assign(input,'x12.inp');
assign(output,'x12.out');
reset(input);
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]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);
s[1]:=upcase(s[1]);
for i:=2 to length(s) do
if s[i]=' ' then
s[i+1]:=upcase(s[i+1]);
write(s);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Thu Aug 25, 2022 8:28 pm

//sx noi bot
var s,s1:string;
i,n,j,d:longint;
tam:char;
begin
assign(input,'x13.inp');
assign(output,'x13.out');
reset(input);
rewrite(output);
readln(s);
n:=length(s);
for i:=1 to n-1 do
for j:=i+1 to n do
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.

Tiêu đề: Re: Nguyễn Trung Dũng Thu Aug 25, 2022 8:59 pm

Code:: var s,t:string;
k,i,n,x:longint;
c:array[1..100] of longint;
begin
assign(input,'x14.inp');
assign(output,'x14.out');
reset(input);
rewrite(output);
readln(s);
s:=' '+s+' ';
n:=length(s);
t:='';
k:=0;
for i:=1 to n 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.

Tiêu đề: Re: Nguyễn Trung Dũng Thu Aug 25, 2022 9:13 pm

Code:: uses math;
var s,t:string;
k,i,n,x,rmax:longint;
c:array[1..100] of longint;
begin
assign(input,'x15.inp');
assign(output,'x15.out');
reset(input);
rewrite(output);
readln(s);
s:=' '+s+' ';
n:=length(s);
t:='';
k:=0;
for i:=1 to n 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;
rmax:=0;
for i:=1 to k do
rmax:=max(rmax,c[i]);
write(rmax);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 7:42 pm

var s:string;
i,j,n:longint;
t:char;
begin
assign(input,'x10.inp');
assign(output,'x10.out');
reset(input);
rewrite(output);
readln(n);
n:=length(s);
for i:=1 to n-1 do
for j:=i-1 to n do
if s[i]>s[j] then
begin
t:=s[i];
s[i]:=s[j];
s[j]:=t;
end;
write(s);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 7:52 pm

var s:string;
res,n,i:longint;
begin
assign(input,'x10.inp');
assign(output,'x10.out');
reset(input);
rewrite(output);
readln(s);
res:=0;
for i:=1 to length(s) do
if s[i]='a' then
res:=res+1;
write(res);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 7:55 pm

Code:: var s:string;
res,n,i:longint;
begin
assign(input,'x10.inp');
assign(output,'x10.out');
reset(input);
rewrite(output);
readln(s);
res:=0;
for i:=1 to length(s) do
if s[i]='a' then
res:=res+1;
write(res);
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 8:07 pm

Code:: var s:string;
res,c,k,i,sa:longint;
begin
assign(input,'x10.inp');
assign(output,'x10.out');
reset(input);
rewrite(output);
res:=1;
for i:=1 to length(s) do
if s[i]=s[i+1] then
res:=res+1
else
begin
sa:=sa+s[i];
inc(k);
c[k]:=res;
res:=1;
end;
for i:=1 to k do
write(sa[i],#32,c[i])
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 8:59 pm

Code:: var s,st:string;
res,c,k,i,sa,sres,x:longint;
begin
assign(input,'x10.inp');
assign(output,'x10.out');
reset(input);
rewrite(output);
readln(s);
while (i<=length(s))do;
if (s[i]>='0') and (s[i]<='9') then
{st:=st+s[i];
i:=i+1;}
else
if st<>'' then
begin
val(st,x);
inc(k);
c[k]:=x;
st:='';
end;
else
{sa:=sa+s[i];
i:=i+1}
sres:='';
for i:=1 to k do
begin
for j:=1 to c[i] do
sres:=sres+sa[i];
end;
write(sres);
write();
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 9:16 pm

Code:: var s,st:string;
var s,st,sa,sres:string;
res,k,i,x,j:longint;
c:array[1..100]of longint;
begin
assign(input,'x14.inp');
assign(output,'x14.out');
reset(input);
rewrite(output);
readln(s);
st:='';
sa:='';
i:=1;
while (i<=length(s)+1)do
if (s[i]>='0') and (s[i]<='9') then
begin
st:=st+s[i];
i:=i+1;
end
else
if st<>'' then
begin
val(st,x);
inc(k);
c[k]:=x;
st:='';
end
else
begin
sa:=sa+s[i];
i:=i+1;
end;
sres:='';
for i:=1 to k do
begin
for j:=1 to c[i] do
sres:=sres+sa[i];
end;
write(sres);
write();
close(input);
close(output);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Fri Aug 26, 2022 9:37 pm

var s,s1:string;
p:longint;
begin
assign(input,'x16.inp');
assign(output,'x16.out');
reset(input);
rewrite(output);
readln(s1);
readln(s);
while (pos(s1,s)>0) and (s<>'') do
begin
p:=pos(s1,s);
delete(s,1,p);
end;
write(s);
close(input);
close(output);
end.

» Nguyễn Đức Dũng 13/11
» Nguyễn Đức Dũng
» Nguyễn Trung Hiếu
» Bài giữa kì -Nguyễn Tiến Dũng
» Nguyễn Trung Hiếu