代码很长啊~~
var
p1,p2,p3:longint;
s:string;
i,j,k,t,l:longint;
c:char;
begin
readln(p1,p2,p3);
readln(s);
l:=length(s);
write(s[1]);
for i:=2 to l-1 do
begin
if s[i]'-' then write(s[i]);
if s[i]='-' then
begin
if (s in ['0'..'9'])and(s in ['0'..'9'])
and(ord(s)
2 条评论
-
aoja LV 7 @ 2015-10-28 16:27:00
CE
-
@ 2015-02-22 18:10:47
希望以后题解能发到各题目的题解区下，谢谢合作！
I wish that the problem solutions can be sent to each topic area under the problem solution, thank you!
Решение Надежда проблема может быть отправлен в каждой тематической области под решение проблемы, спасибо!
希望以後題解能發到各題目的題解區下，謝謝合作！
ホープ問題解決、問題の解決策の下で、各トピックエリアに送信することができ、ありがとうございました！
La solution du problème de l'espoir peut être envoyé à chaque sujet dans la solution du problème, merci!
Rozwiązanie problemu Nadzieja mogą być wysyłane do każdego obszaru tematu w ramach rozwiązania problemu, dziękuję!
- 1
信息
- ID
- 1379
- 难度
- 6
- 分类
- 模拟 点击显示
- 标签
- 递交数
- 5991
- 已通过
- 1616
- 通过率
- 27%
- 被复制
- 10
- 上传者
-
wojiubuxing
