Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

> PASCAL的OJer们注意了,此题的数据只有小写字母,大家按照小写字母读入即可

Posted by JanciLee at 2014-07-29 09:01:03 on Problem 1458 and last updated at 2014-07-29 09:04:34
In Reply To:我日这题数据坑害pascal……请大家注意,说了只有空格隔开,竟冒出来#9 #10 #13!!!害我数次提交纠结 Posted by:lydliyudong at 2011-03-20 14:30:19
> PASCAL的OJer们注意了,此题的数据只有小写字母,大家按照小写字母读入即可
procedure scanf;
var
 i:longint;
 c:char;
begin
 i:=0;read(c);
 repeat
  i:=i+1;
  x[i]:=c;
  read(c)
 until not(c in ['a'..'z']);
 lx:=i;
 while not(c in ['a'..'z']) do read(c);
 i:=1;y[1]:=c;
 repeat
  i:=i+1;
  read(y[i]);
 until eoln;
 ly:=i;
 readln;
end;

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator