1329 条题解
-
0
papayazx LV 3 @ 2008-09-03 18:52:52
侮辱我们的智商。。。
-
0@ 2008-09-03 16:44:04
program asd;
var
a,b,c:longint;
begin
read(a,b);
c:=a+b;
write(c);
end. -
0@ 2008-09-03 13:08:49
prpgram aaaa;
var
a,b:qword;
begin
read(a,b);
a:=a+b;
write(a);
end. -
0@ 2008-09-03 13:06:29
program ma;
var
a,b:longint;
begin
readln(a,b);
writeln(a+b);
end. -
0@ 2008-09-02 12:57:36
progran PLUS;
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end. -
0@ 2008-09-01 20:44:42
nove2384dk
var
a,b:longint;
s:longint;
begin
readln(a,b);
s:=a+b;
writeln(s);
end. -
0@ 2008-09-01 17:56:45
program Plus;
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end. -
0@ 2008-09-01 13:56:08
program p1000;
type num=array[0..100]of longint;
var a,b,i,j,n:longint;
function change(a:longint):num;
var x:num;
begin
fillchar(x,sizeof(x),0);
x[0]:=0;
while a0 do
begin
inc(x[0]);
x[x[0]]:=a mod 10000;
a:=a div 10000;
end;
if x[0]=0 then inc(x[0]);
change:=x;
end;
function add(a,b:num):num;
var i,j,n:longint;
c:num;
begin
fillchar(c,sizeof(c),0);
if a[0]>b[0] then c[0]:=a[0] else c[0]:=b[0];
for i:=1 to c[0] do
begin
inc(c[i],b[i]+a[i]);
c:=c[i] div 10000;
c[i]:=c[i] mod 10000;
end;
if c[c[0]+1]0 then inc(c[0]);
add:=c;
end;
procedure writeout(a:num);
var i,j:longint;
begin
write(a[a[0]]);
for i:=a[0]-1 downto 1 do
write(a[i] div 1000,a[i] mod 1000 div 100,a[i] mod 100 div 10, a[i] mod 10);
end;
begin
readln(a,b);
writeout(add(change(a),change(b)));
end.高精度的 加法 ^_^
-
0@ 2008-08-30 14:24:53
复制,粘贴……
-
0@ 2008-08-29 12:39:24
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end. -
0@ 2008-08-28 08:45:26
program yu;
var
a,b:integer;
begin
read(a,b);
writeln(a+b);
end. -
0@ 2008-08-27 14:41:30
使用高精度
-
0@ 2008-08-24 08:16:45
用高精度!!!!!!
或用Dp!!!!!! -
0@ 2008-08-23 14:42:13
LB的题目
-
0@ 2008-08-21 22:02:03
program Plus;
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end. -
0@ 2008-08-26 18:33:57
var i,a,b:longint;
st,st2:string;
begin
readln(a,b);
a:=a+b;
for i:=1 to 100000 do
a:=a+i;
for i:=1 to 100000 do
a:=a-i;
str(a,st);
st2:='';
for i:=1 to length(st) do
st2:=st2+st[i];
writeln(st2);
end.用到了加法,减法,循环,转字符串,字符串相加等等等等等等等等等等等等,可见此题之难!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
0@ 2008-08-20 10:26:56
我没话说啊!!!
59%的通过率,哎! -
0@ 2008-08-19 13:57:43
汗!!!
-
0@ 2008-08-19 00:38:00
59%的通过率,这个我能理解~
我一般的解题思路是先看题目再看题解然后提交,万事万灵!
-
0@ 2008-08-13 09:16:38
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:0ms
信息
- ID
- 1000
- 难度
- 9
- 分类
- (无)
- 标签
- (无)
- 递交数
- 75095
- 已通过
- 28724
- 通过率
- 38%
- 被复制
- 262