consolep.dpr

来自「dephi的一些小程序啊」· DPR 代码 · 共 18 行

program consoleP;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var a,b,c1,c2:integer;
begin
  write('a,b=?');
  readln(a,b);
  c1:=a div b;
  c2:=a mod b;
  writeln('c1=',c1);
  writeln('c2=',c2);
  readln;

end.