P1001 A+B Problem 代码 :
var
a,b:longint;
begin
readln(a,b);
write(a+b);
end.
P1421 小玉买文具 代码:
var
a,b:real;
begin
readln(a,b);
write(trunc((a+b/10)/1.9));
end.
P1425 小鱼的游泳时间 代码:
var
a,b,c,d:longint;
begin
readln(a,b,c,d);
if d<b then
begin
d:=d+60;
c:=c-1;
end;
write(c-a,' ',d-b);
end.
总结:
暴力就好。