2015年05月01日

原创 2015年07月10日 09:46:35
program tppx;
const maxn=100;
var
 map:array[1..maxn,1..maxn]of longint;
 into:array[1..maxn]of longint;
 n,i,j,k:longint;
 procedure init;
 var
  i,j:longint;
 begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do
 read(map[i,j]);
 inc(into[j]);
 end;
begin
 //assign('input.in');
 //assign('output.out');
 //reset(input);
 //rewrite(output);
 init;
 for i:=1 to n do
  begin
   j:=1;
   while(j<=n)and(into[j]<>0)do inc(j);
   if j>n then halt;
   write(j,' ');
   into[j]:=255;
   for k:=1 to n do
   if map[j,k]=1 then dec(into[k]);
  end;
 //close(input);
 //close(output);
end.


0 0 1 0 0 0 0 1
1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 1 0 0 0 0 1
0 1 0 1 0 1 0 0
1 1 0 0 0 0 0 0
0 0 0 1 1 0 0 0
0 0 1 0 0 0 0 0
版权声明:本文为博主原创文章,未经博主允许不得转载。

2015年07月01日第二天笔记

昨天遗留 1.动态产生按钮赋给事先定义的属性,就可以全局使用它了 2015年07月01日08:19:12 1.整理电脑内存垃圾:cleanMyMac 软件2.消化今天,预习 第3、4天 因为比较...
  • yu_4074
  • yu_4074
  • 2015年07月19日 18:59
  • 574

2015年08月01日——如何无损制作UD三分区的双启U盘(20150801图文),已经编程实现!

2015年08月01日 无损制作UD三分区教程 (20150801图文版) [术语]UD三分区=UD区+ntfs的DATA区+fat的EFI区 无损制作——无损原有U盘数据来制作UD三分区 ...
  • xcntime
  • xcntime
  • 2016年05月20日 10:34
  • 4572

浅讲医院若何进止微专营销 05月27日

楼兰破论坛:www.loulanpo.com  中介买卖 SEO诊断淘宝客 站长团购 云主机 A5外包        微博是一个社会化媒体,更是一个重生事物。跟着移动互联网的不息成生和生长,微...

网站进止友链交换时需供重视的事项有哪些? 05月27日

楼兰破论坛:www.loulanpo.com  中介生意营业 SEO诊断淘宝客 站长团购 云主机 A5外包    自4月25日百度站长平台揭晓了关于外链作弊的见解,外链变得愈来愈易,让许多站长们盲...

chinadaily 2010年06月01日

  • 2010年10月24日 21:47
  • 10.12MB
  • 下载

2017年05月12日 学习小总结(think php 验证码的使用)

使用版本think php 3.2.3 用户名: 密 码:

2016年05月26日 可用host可访问google ,Facebook

复制以下全部内容粘贴到host文件中,不清楚的自行百度 尽情的畅游吧“~
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:2015年05月01日
举报原因:
原因补充:

(最多只允许输入30个字)