帮我解决一个pascal题
帮我解决一个pascal题
日期：2006-08-13 20:56:25 人气：1
太简单了。我也选2个帮你答。
6
program p6;
var a,b:integer;
begin
readln(a,b);
writeln('C=',2*(a+b));
writeln('S=',a*b);
end.
7
program p7;
var
sum,h,m,s:integer;
begin
readln(h,m,s);
sum:=s+m*60+h*60*60;
writeln(sum,&