输入一个奇数 P (P<100,000,000), 其个位数字不是 5, 求一个整数 S,
使 P×S = 987654321...987654321. ( 在给定的条件下, 解 S 必存在, 不必
判断可解性).
输入输出要求:
(1) P 由键盘输入.
(2) 在屏幕上依次输出以下结果:
① S 的全部数字. 除最后一行外, 每行输出 50 位数字.
② S 的数字位数.
③ 积的数字位数(应该是9的倍数)
program lxw017;
var p,a,b,c,n,n2,i:longint;
bl:boolean;
begin
repeat
bl:=true;
writeln(’input p,the last place is 1 or 3 or 7 or 9:’);
readln(p);
if (p mod 2=0) or (p mod 5=0) then bl:=false;
until bl;
a:=0; n:=0; i:=10;
while a<p do
begin dec(i); a:=a*10+i; inc(n); end;
n2:=0;
repeat
b:=a div p; write(b:1); inc(n2);
if n2 mod 50=0 then writeln;
c:=a-p*b; dec(i);
if (i=0)and(c>0) then i:=9;
此文共有2页 上一页 1 2 下一页 |
