program n (input,output);

var

a,b,c: integer;

begin

read(a,b);

c:=a+b;

write(c);

end.

#include "stdio.h"

main()

{int a,b,sum;

scanf("%d%d",&a,&b);

sum=a+b;

printf("sum=%d",sum);

}

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

#include"stdio.h"

int main()

{

int x,y,sum;

scanf("%d%d",&x,&y);

sum=x+y;

printf("%d\n",sum);

return 0;

}

C99标准解法~

#include

main()

{

int x,y,z;

scanf("%d %d",&x,&y);

z=x+y;

printf("%d",z);

}

var x,y,s:longint;

begin

read(x,y);

s:=x+y;

write(s);

end.

#include“stdio.h”

#include“stdlib.h”

int main(){

int a,b;

scanf("%d %d",&a,&b);

printf("%d",a+b)

}

var a,b:integer;

begin

read(a,b);

write(a+b);

end.

program byc1;

var a,b,sum:integer;

begin

read(a,b);

sum：=a+b;

writeln(sum);

end.

var

a,b,c:longint;

begin

readln(a,b);

c:=a+b;

write(c);

end.

program hu;

var a,b,c:integer;

begin

read(a,b);

c:=a+b；

write(c);

end.

var yu,math,eng,num,s:array[1..300] of integer;

n,i,max,ms,a:integer;

begin

read(n);

for i:=1 to n do

begin

readln(yu[i],math[i],eng[i]);

num[i]:=i;

s[i]:=yu[i]+math[i]+eng[i];

end;

for a:=1 to 5 do

begin

max:=0; ms:=0;

for i:=1 to n do

begin

if max

var a,b:integer;

begin

read(a,b);

write(a+b);

end.

var a,b:integer;

begin

read(a,b);

write(a+b);

end.

var A,B,c:integer;

begin

read('A',A,'B',B);

c:=A+B;

write(c);

end.

var

a,b:array[0..10] of longint;

i,j,k,l:longint;

procedure reads(var t1,t2:array of longint);

var

i,j,k,l:longint;

s,s2:string;

begin

readln(s);

i := pos(' ',s);

t1[0] := i-1;

for j := i-1 downto 1 do t1 := ord(s[j]) - ord('0');

t2[0] := length(s) -i;

for j := length(s) downto i+1 do t2[length(s)-j+1] := ord(s[j]) - ord('0');

end;

begin

reads(a,b);

for i := 1 to a[0] do

begin

inc(b[i],a[i]);

b := b + b[i] div 10;

b[i] := b[i] mod 10;

end;

for j := i to b[0] do

begin

b := b + b[i] div 10;

b[i] := b[i] mod 10;

end;

while b[b[0]+1] 0 do inc(b[0]);

for i := b[0] downto 1 do write(b[i]); writeln;

end.

高精不解释

var

a,b:integer;

begin

read(a,b);

writeln(a+b);

end.

var

a,b:integer;

begin

readln(a,b);

writeln(a+b);

end.

var

a,b,c:integer;

begin

readln(a,b);

c:=a+b;

writeln(c);

readln;

end.

算法：直接计算