tang.pas

本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS的程序

program ex1;
 var a,b,c:integer;
 begin
  a:=50;
  b:=43;
  c:=13;
  a:=a div 3;
  b:=a+b;
  c:=a+c;
  b:=b div 3;
  a:=b+a;
  c:=b+c;
  c:=c div 3;
  a:=c+a;
  b:=c+b;
  writeln('a:',a);
  writeln('b:',b);
  writeln('c:',c);
  readln;
end.