Question

delphi 求整数各位数字 输入一个任意4位整数，计算千位、百位、十位和个位上的数字

Answer 1

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  x,x1,x2,x3,x4:Integer;

label

  l;

begin

  { TODO -oUser -cConsole Main : Insert code here }

l:  Write('请输入一个四位数：');

  Read(x);

  if (x<1000) or (x>9999) then

    begin

      WriteLn('输入有误，请重新输入!');

      goto l;

    end;

  x4:=x div 1000;

  x3:=(x mod 1000) div 100;

  x2:=(x mod 100) div 10;

  x1:=x mod 10;

  Writeln(format('千位：%d,百位：%d,十位：%d,个位：%d',[x4,x3,x2,x1]));

  Read(x);

end.

Answer 2

最简单的方法：将4位整数通过inttostr()变成字符串，然后分别拿出字符串的内容即可。

Answer 3

取整，用div
比如
a是你要求的数
千位 = a div 1000;
百位 = a div 100;
.... 以此类推

Answer 4

没听懂楼主的意思...