exer2-10.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program e2_10(input,output);
var
s,p,a,b,c:integer;
begin
  write('input s');
  readln(s);
  writeln('s=',s);
  a:=s mod 100 mod 10;
  b:=trunc(s/10) mod 10;
  c:=trunc(s/100);
  p:=a*100+b*10+c;
  writeln('a',a,'b=',b,'c=',c,'p=',p);
  readln(p)

end.