1000 numerical

program oneThousandNumberic;

var
son,mom,divNum,modNum,i:integer;


begin

writeln('pls input son:');
readln(son);
writeln('pls input mom:');
readln(mom);

i:=1;
divNum:=son;

while i<=1001 do
begin
    write(divNum div mom);
    if i=1
    then write('.');
    modNum:=divNum mod mom;
    divNum:=modNum*10;
    i:=i+1;
end;


end.

标签：writeln,pls,divNum,numerical,son,readln,mom,1000
来源： https://www.cnblogs.com/lsjava/p/15369541.html