Hệ sinh thái số IELP
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Hệ sinh thái số IELP

Học lập trình với Hệ sinh thái số IELP
 
Trang ChínhPortalCalendarLatest imagesTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Keywords
tổng được Trần nhật pháp giác Thành chứa thưởng đặng Phạm sinh hình Nhàn Ngọc điểm BANG nguyễn tiến Phần HOAI phương 2022 Minh sach tích
Latest topics
» Bài kiểm tra giữa Học kỳ II
Quảng Tuấn Kiệt I_icon_minitimeWed Apr 05, 2023 8:00 am by Nguyễn Đức Mạnh

» Bài giữa kì 2
Quảng Tuấn Kiệt I_icon_minitimeMon Apr 03, 2023 8:34 am by Khách viếng thăm

» Bài giữa kì tin Lê Đức Anh
Quảng Tuấn Kiệt I_icon_minitimeSun Apr 02, 2023 8:33 pm by Tendalda06

» Nghiêm Tuấn Tú
Quảng Tuấn Kiệt I_icon_minitimeSat Apr 01, 2023 9:03 am by Nghiêm Tuấn Tú

» Nguyễn Trần Ý Nhi
Quảng Tuấn Kiệt I_icon_minitimeSat Apr 01, 2023 8:23 am by Nguyễn Trần Ý Nhi

» Nguyễn Kim Anh
Quảng Tuấn Kiệt I_icon_minitimeSat Apr 01, 2023 12:05 am by Khách viếng thăm

» Trần Thanh Trà
Quảng Tuấn Kiệt I_icon_minitimeFri Mar 31, 2023 11:10 pm by Trần Thanh Trà

» Trần Huyền My 11V
Quảng Tuấn Kiệt I_icon_minitimeFri Mar 31, 2023 11:00 pm by Trần Huyền My

» Trần Huyền My 11V
Quảng Tuấn Kiệt I_icon_minitimeFri Mar 31, 2023 10:55 pm by Trần Huyền My

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
Top posting users this week
No user

 

 Quảng Tuấn Kiệt

Go down 
3 posters
Tác giảThông điệp
Admin
Admin



Tổng số bài gửi : 149
Join date : 23/04/2022
Age : 41
Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeSat Jun 25, 2022 8:26 pm

Nơi nộp bài của Quảng Tuấn Kiệt
Về Đầu Trang Go down
https://ielp.forumvi.com
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:35 pm

Code:
const fi='gcd.inp';
      fo='gcd.out';
var a,b:longint;
function ucln(u,v:longint):longint;
var r:longint;
begin
while v>0 do
begin
r:=u mod v;
u:=v;
v:=r;
end;
exit(u);
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(a,b);
write(ucln(a,b));
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:35 pm

Code:
const fi='arradd2.inp';
      fo='arradd2.out';
var a,b,c:array [0..1000] of longint;
    i,j,n,m,k:longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,m);
for i:=1 to n do read(a[i]);
for i:=1 to m do read(b[i]);
i:=1; j:=1;
while (i<=n) or (j<=m) do  begin inc(k);
if (a[i]<=b[j]) and (i<=n) then
begin
c[k]:=a[i];
inc(i);
end else if j<=m then begin
c[k]:=b[j];
inc(j);
end;
end;
for i:=1 to m+n do write(c[i],#32);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:36 pm

Code:
const fi='arrcount.inp';
      fo='arrcount.out';
var n,k,ii:longint;
    a:array [0..1000] of longint;
procedure qsort(l, r: longint);
var i,j,chot,tam: longint;
begin
    i:= l;
    j:= r;
    chot:=a[(i+j) div 2];
    while i<= j do
    begin
        while a[i] < chot do inc(i);
        while a[j] > chot do dec(j);
        if i <= j then
        begin
            tam:=a[i];
            a[i]:=a[j];
            a[j]:=tam;
            inc(i);
            dec(j);
        end;
    end;
    if i < r then qsort(i,r);
    if l < j then qsort(l,j);
end;
begin
    assign(input,fi); reset(input);
    assign(output,fo); rewrite(output);
    readln(n);
    for ii:=1 to n do read(a[ii]);
    qsort(1,n);
    k:=1;
    for ii:=1 to n do
    if a[ii]=a[ii+1] then inc(k) else begin
    writeln(a[ii],#32,k); k:=1;
    end;
    close(input);
    close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:36 pm

Code:
const fi='bins.inp';
      fo='bins.out';
var i,n,x,k:longint;
    a:array [0..1000] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
read(n,x);
for i:=1 to n do begin read(a[i]);
if x=a[i] then begin write(i,#32); k:=1; end;
end;                                        if k<>1 then write(-1);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:36 pm

Code:
uses math;
const fi='upseq.inp';
      fo='upseq.out';
var i,n,res,k:longint;
      a:array[0..1000] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
for i:=1 to n do read(a[i]); k:=1;
for i:=1 to n do
if a[i]<=a[i+1] then inc(k)
else begin
res:=max(res,k);
k:=1;
end;
write(res);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:36 pm

Code:
const fi='arr2d.inp';
      fo='arr2d.out';
var i,j,m,n,s:longint;
    a:array [0..1000,0..1000] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
begin
read(a[i,j]);
s:=s+a[i,j];
end;
write(s,#32);
s:=0;
end; writeln;
for j:=1 to n do
begin
for i:=1 to m do
s:=s+a[i,j];
write(s,#32);
s:=0;
end;
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:37 pm

Code:
uses math;
const fi='arr2dpri.inp';
      fo='arr2dpri.out';
var f:array [0..1000] of boolean;
    a:array [0..1000,0..1000] of longint;
    n,m,i,j,res,k:longint;
procedure sangnt(n:longint);
var i,k:longint;
begin
for i:=1 to n do f[i]:=true;
i:=2; f[1]:=false;
while i<=sqrt(n) do
if f[i] then
begin
k:=2;
while k*i<=n do
begin
f[i*k]:=false;
inc(k);
end; inc(i); end else inc(i);
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,m);
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
res:=max(res,a[i,j]);
end;
sangnt(res);
for i:=1 to n do
for j:=1 to m do
if f[a[i,j]] then begin writeln(i,#32,j); k:=1; end;
if k<>1 then write(-1);
close(input);
close(output);
end.

Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Jun 27, 2022 1:37 pm

Code:
uses math;
const fi='arr2dsqu.inp';
      fo='arr2dsqu.out';
var fx,fm,a:array [0..1000,0..1000] of longint;
    n,m,k,res:longint;
procedure doc;
var f:text;
    i,j:longint;
begin
assign(f,fi); reset(f);
readln(f,n,m,k);
for i:=1 to n do
for j:=1 to m do
read(f,a[i,j]);
for i:=1 to n do
for j:=1 to m do
fx[i,j]:=a[i,j]+fx[i-1,j]+fx[i,j-1]-fx[i-1,j-1];
close(f);
end;
procedure xuly;
var i,j:longint;
begin
for i:=1 to n-k+1 do
for j:=1 to m-k+1 do
begin
fm[i,j]:=fx[i+k-1,j+k-1]-fx[i+k-1,j-1]-fx[i-1,j+k-1]+fx[i-1,j-1];
res:=max(res,fm[i,j]);
end;
end;
procedure ghi;
var f:text;
    i,j:longint;
begin
assign(f,fo); rewrite(f);
writeln(f,res);
for i:=1 to n-k+1 do
for j:=1 to m-k+1 do
if fm[i,j]=res then writeln(f,i,#32,j);
close(f);
end;
begin  res:=low(longint);
doc; xuly; ghi;
end.

Admin likes this post

Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeThu Jul 07, 2022 7:44 pm

Code:
uses math;
const fi='ddb.inp';
      fo='ddb.out';
var f:array [0..2000000] of 0..1;
    a,s:array [0..2000000] of longint;
    t,i,j,res,p:longint;
procedure sangnt(n:longint);
var  i,k:longint;
begin
for i:=1 to n do f[i]:=1;
f[1]:=0; i:=2;
while i<=sqrt(n) do
if f[i]=1 then
begin
k:=2;
while k*i<=n do
begin
f[k*i]:=0;
inc(k);
end;
inc(i);
end else inc(i);
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(t);
for i:=1 to t do
begin
readln(a[i]);
res:=max(res,a[i]);
end;
sangnt(2*res);
for i:=1 to 2*res do
s[i]:=s[i-1]+f[i];
for i:=1 to t do
begin
p:=s[2*a[i]]-s[a[i]];
writeln(p);
end;
close(input);
close(output);
end.

Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeThu Jul 07, 2022 7:48 pm

Code:
const fi='numdivs.inp';
      fo='numdivs.out';
var p,a,b,n,i,s:longint;
function uoc(n:longint):longint;
var i,k:longint;
begin  k:=0;
for i:=1 to trunc(sqrt(n)) do
if n mod i =0 then
begin
inc(k);
if i<> n div i then
inc(k);
end;
exit(k);
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,a,b);
for i:=1 to n do
begin
p:=uoc(i);
if (p>=a) and (p<=b) then
inc(s);
end;
write(s);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeThu Jul 07, 2022 7:49 pm

Code:
uses math;
const fi='bonsai.inp';
      fo='bonsai.out';
var i,k,n,res:longint;
    a,s,smax:array [0..1000000] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
s[i]:=s[i-1]+a[i];
for i:=n downto 1 do
smax[i]:=max(s[i],smax[i+1]);
res:=low(longint);
for i:=1 to n-k+1 do
res:=max(res,smax[i+k-1]-s[i-1]);
write(res);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeTue Aug 09, 2022 8:23 pm

Code:
const fi='mm.inp';
      fo='mm.out';
var n,i,k,j:longint;
    a:array [0..100] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
i:=n;
while i>0 do
begin
for k:=1 to n do write(a[k],#32);
writeln;
i:=n;
while a[i]=1 do dec(i);
a[i]:=1;
for j:=i+1 to n do a[j]:=0;
end;
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeTue Aug 09, 2022 9:03 pm

Code:
const fi='mm.inp';
      fo='mm.out';
var n,k,d,p:longint;
    f:array [-7..100] of longint;
procedure xuat;
var i:longint;
begin
if d=k then
begin
for i:=1 to n do
write(f[i],#32);
writeln;
p:=1;
end;
end;
procedure try(i:longint);
var j:longint;
begin
for j:=0 to 1 do
begin
f[i]:=j;
if j=1 then inc(d);
if i=n then xuat else try(i+1);
if j=1 then dec(d);
end;
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k);
try(1);
if p=0 then write(-1);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Aug 22, 2022 8:16 pm

Code:
uses math;
const fi='dayconk.inp';
     fo='dayconk.out';
var i,n,res,s,k:longint;
   f:array [0..1000] of longint;
procedure xuat;
var j,i:longint;
begin
for i:=1 to k do write(f[i],#32);
writeln;
end;
procedure try(i:longint);
var j:longint;
begin
for j:=f[i-1]+1 to n-k+i do
begin
f[i]:=j;
if i=k then xuat else try(i+1);
end;
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k);
try(1);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Aug 22, 2022 8:42 pm

Code:
uses math;
const fi='dayconk2.inp';
      fo='dayconk2.out';
var i,n,s,k,p:longint;
    f,a:array [0..100] of longint;
procedure xuat;
var i:longint;
begin
if p=s then
begin
for i:=1 to k do write(f[i],#32);
writeln;
end;
end;
procedure try(i:longint);
var j:longint;
begin
for j:=f[i-1]+1 to n-k+i do
begin
f[i]:=j;
p:=p+a[f[i]];
if p>s then begin p:=p-a[f[i]]; break; end;
if i=k then xuat else try(i+1);
p:=p-a[f[i]];
end;
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k,s);
for i:=1 to n do read(a[i]);
try(1);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Aug 22, 2022 8:42 pm

Code:
[code]uses math;
const fi='dayconk2.inp';
      fo='dayconk2.out';
var i,n,s,k,p:longint;
    f,a:array [0..100] of longint;
procedure xuat;
var i:longint;
begin
if p=s then
begin
for i:=1 to k do write(f[i],#32);
writeln;
end;
end;
procedure try(i:longint);
var j:longint;
begin
for j:=f[i-1]+1 to n-k+i do
begin
f[i]:=j;
p:=p+a[f[i]];
if p>s then begin p:=p-a[f[i]]; break; end;
if i=k then xuat else try(i+1);
p:=p-a[f[i]];
end;
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k,s);
for i:=1 to n do read(a[i]);
try(1);
close(input);
close(output);
end.
[/code]
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeMon Aug 22, 2022 9:20 pm

Code:
uses math;
const fi='dayconk3.inp';
      fo='dayconk3.out';
var n,k,i,res,p,t,g,s:longint;
    f,a,c:array [0..1000] of longint;
function pali(m:longint):boolean;
begin
if m<=9 then exit(true)
else
begin
p:=m;
g:=0; t:=0;
while m<>0 do
begin
inc(g);
c[g]:=m mod 10;
m:=m div 10;
end;
for i:=1 to g do t:=t*10+c[i];
if p=t then exit(true);
exit(false);
end;
end;
procedure xuat;
begin
if pali(s) then res:=max(res,s);
end;
procedure try(i:longint);
var j:longint;
begin
for j:=f[i-1]+1 to n-k+i do
begin
f[i]:=j;
s:=s+a[f[i]];
if i=k then xuat else try(i+1);
s:=s-a[f[i]];
end;
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k);
for i:=1 to n do read(a[i]);
try(1);
write(res);
close(input);
close(output);
end.
Về Đầu Trang Go down
quanttk33




Tổng số bài gửi : 60
Join date : 23/06/2022
Age : 16
Đến từ : Vietnam

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: DQCKN5   Quảng Tuấn Kiệt I_icon_minitimeMon Aug 22, 2022 9:26 pm

Code:
#include <bits/stdc++.h>
#define nmax 1000007
#define f(i,a,b) for(int i=a;i<=b;i++)
#define fd(i,a,b) for(int i=a;i>=b;i--)
using namespace std;

int n, k, a[nmax], b[nmax];
int rmax=-trunc(1e9), rmin=trunc(1e9);

void xuli(){
    int p1=0, p2=0;
    f(i,1,k){
        if(b[a[i]]==rmax) p1=1;
        if(b[a[i]]==rmin) p2=1;
        if(p1+p2==2) break;
    }
    if(p1+p2==2){
        f(i,1,k){
            cout<<b[a[i]]<<" ";
        }
        cout<<endl;
    }
}

void thu(int i){
    f(j,a[i-1]+1,n-k+i){
        b[i]=j;
        if(i==k){
            xuli();
        }else{
            thu(i+1);
        }
    }
}
int main()
{
    ios_base::sync_with_stdio(false); cin.tie(0); cout.tie(0);
    freopen("DQCKN5.inp","r",stdin);
    freopen("DQCKN5.out","w",stdout);
    memset(b,sizeof(b),0);
    cin>>n>>k;
    f(i,1,n){
        cin>>a[i];
        rmax=max(rmax, a[i]);
        rmin=max(rmin, a[i]);
    }
    thu(1);
    return 0;
}
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeTue Sep 13, 2022 8:10 pm

Code:
const fi='sum.inp';
      fo='sum.out';
var n,a,b,c,d,k:longint;
procedure dak;
begin
if (a<=b) and (b<=c) and (c<=d) then writeln(a,#32,b,#32,c,#32,d)
else k:=1;
end;
procedure xuly(x:longint);
begin
a:=1; b:=1; c:=1; d:=x-3;
writeln(a,#32,b,#32,c,#32,d);
while (a<=b) and (b<=c) and (c<=d) do
begin
dec(d); inc(c);
dak;
if k=1 then exit;
dec(d); inc(b);
dak;
if k=1 then exit;
dec(d); inc(a);
dak;
if k=1 then exit;
end;
end;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
if n<=3 then write(0)
else
xuly(n);
close(input);
close(output);
end.
Về Đầu Trang Go down
Kiệt Quảng




Tổng số bài gửi : 37
Join date : 25/05/2022

Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitimeTue Sep 13, 2022 8:44 pm

Code:
const fi='financial.inp';
      fo='financial.out';
var i,j,n,k,res:longint;
    a,fx,tr:array [0..100000] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n,k);
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
fx[i]:=1;
for j:=1 to i-1 do
if (abs(a[j]-a[i])>=k) and (fx[i]<fx[j]+1) then
begin
fx[i]:=fx[j]+1;
tr[i]:=j;
end;
end;
for i:=1 to n do
if res<fx[i] then
begin
res:=fx[i];
j:=i;
end;
writeln(res);
while j<>0 do
begin
write(a[j],#32);
j:=tr[j];
end;
close(input);
close(output);
end.
Về Đầu Trang Go down
Sponsored content





Quảng Tuấn Kiệt Empty
Bài gửiTiêu đề: Re: Quảng Tuấn Kiệt   Quảng Tuấn Kiệt I_icon_minitime

Về Đầu Trang Go down
 
Quảng Tuấn Kiệt
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Quảng Tuấn Kiệt
» Nghiêm Tuấn Tú
» Nghiêm Tuấn Tú
» Nghiêm Tuấn Tú
» Nghiêm Tuấn Tú

Permissions in this forum:Bạn không có quyền trả lời bài viết
Hệ sinh thái số IELP :: Thực nghiệm phần C++ :: 3-Lập trình cơ bản 2-
Chuyển đến