作业帮pascal程序用,请用repeat语句实现请帮忙,1.用1700元买小狗(31元)和小猫(21元).要正好用完钱,怎么买?2.某数X加上100成为一个完全平方数,加上168成为另一个完全平方数,求X.3.用300,262,205,167分别除以某
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 03:08:11
pascal程序用,请用repeat语句实现请帮忙,1.用1700元买小狗(31元)和小猫(21元).要正好用完钱,怎么买?2.某数X加上100成为一个完全平方数,加上168成为另一个完全平方数,求X.3.用300,262,205,167分别除以某
pascal程序用,请用repeat语句实现请帮忙,
1.用1700元买小狗(31元)和小猫(21元).要正好用完钱,怎么买?
2.某数X加上100成为一个完全平方数,加上168成为另一个完全平方数,求X.
3.用300,262,205,167分别除以某数A,余数都相同,求A及那个余数.
4."一数,三三数之,剰二；无物数之,剩三；七七数之,剰二；问物几何?"求最小解
5.求出所有不超过1000的数中,含有3的自然数,并统计总数.
6.求出1000以内所有的阿姆斯特朗数.
请用repeat语句实现,
pascal程序用,请用repeat语句实现请帮忙,1.用1700元买小狗(31元)和小猫(21元).要正好用完钱,怎么买?2.某数X加上100成为一个完全平方数,加上168成为另一个完全平方数,求X.3.用300,262,205,167分别除以某
program a1;
var dog,last:integer;
begin
dog:=0;
repeat
inc(dog);
last:=1700-dog*31;
if last mod 21=0 then writeln('DOG:',dog,' CAT:',last div 21);
until dog*31>1700;
end.
program a2;
var flag:boolean;
a,b,x:integer;
begin
x:=0;
repeat
flag:=false;
inc(x);
a:=x+100;
b:=x+168;
if(trunc(sqrt(a))=sqrt(a))and(trunc(sqrt(b))=sqrt(b))then flag:=true;
until flag;
writeln(x);
end.
program a3;
var a,p1,p2,p3,p4:integer;
begin
p1:=300;p2:=262;p3:=205;p4:=167;
a:=0;
repeat
inc(a);
if(p1 mod a=p2 mod a)and(p2 mod a=p3 mod a)and(p3 mod a=p4 mod a)then
writeln('chu shu=',a,' yu shu=',p1 mod a);
until a>300;
end.
program a4;
var flag:boolean;
a:integer;
begin
a:=0;
repeat
inc(a);
if(a mod 3=2)and(a mod 5=3)and(a mod 7=2)then flag:=true;
until flag;
writeln(a);
end.
program a5;
var a,a1,tot,p:integer;
flag:boolean;
begin
a:=0;
tot:=0;
repeat
inc(a);
a1:=a;
flag:=false;
while a10 do
begin
p:=a1 mod 10;
if p=3 then flag:=true;
a1:=a1 div 10;
end;
if flag then begin writeln(a);inc(tot);end;
until a=1000;
writeln('total=',tot);
end.
program a6;
var a,i,j,k:integer;
begin
a:=-1;
repeat
inc(a);
if a