比赛 NOIP2008集训模拟3 评测结果 C
题目名称 IP网络管理员 最终得分 0
用户昵称 0彼岸0 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-11-12 11:21:26
显示代码纯文本
program networkip;
var s1:string;
begin
  assign(input,'networkip.in');
  assign(output,'networkip.out');
  reset(input);
  rewrite(output);
  readln(s1); 
  len=length(s1); 
  for i:=0 to len-2 do
   write(s1[i]);
   writeln(s[len-1]-1);
  write('255.255.255.248');
  close(input);
  close(output);
end.