社区讨论
求解
P1615西游记公司参与者 3已保存回复 2
讨论操作
快速查看讨论及其快照的属性,并进行相关操作。
- 当前回复
- 2 条
- 当前快照
- 1 份
- 快照标识符
- @mi4efx12
- 此快照首次捕获于
- 2025/11/18 17:56 4 个月前
- 此快照最后确认于
- 2025/11/18 17:56 4 个月前
###大神们总么做的?
CPPvar
a,b,s1,s2,s3,s,t,s4,s5,s6,o,k:ansistring;
p,p1,p2,p3,p4,p5,p6,p7,p8:real;
u,m,n,i,j:longint;
begin
readln(a);
readln(b);
readln(n);
repeat
s1:=s+s1;
i:=i+1;
s:=copy(a,i,1);
until s=':';
repeat
s2:=t+s2;
j:=j+1;
t:=copy(a,i+j,1);
until t=':';
s3:=copy(a,i+j+1,length(a)-i-j);
val(s1,p1);
val(s2,p2);
val(s3,p3);
p:=p1*3600+p2*60+p3;
repeat
s4:=o+s4;
u:=u+1;
o:=copy(b,u,1);
until o=':';
repeat
s5:=k+s5;
m:=m+1;
k:=copy(b,u+m,1);
until k=':';
s6:=copy(b,u+m+1,length(b)-u-m);
val(s4,p4);
val(s5,p5);
val(s6,p6);
p7:=p4*3600+p5*60+p6;
p8:=p7-p;
p8:=p8*n;
write(p8:0:0);
end.
回复
共 2 条回复,欢迎继续交流。
正在加载回复...