边读入边输出

代码很长啊~~

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 条评论

  • @ 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
分类
模拟 点击显示
标签
递交数
5989
已通过
1615
通过率
27%
被复制
10
上传者