pascal程序用,请用repeat语句实现请帮忙,

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/11 03:21:09

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语句实现,

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

pascal程序用,请用repeat语句实现请帮忙, pascal问题,请用while语句做出, 请高手用Pascal语言编写下列程序 1、用For循环语句实现下列的图形 2、请用循环结构编写下列图形的程序 * ** *** **** ***** pascal repeat 语句输出下列图形现在我想用C语言编写一段小程序,实现如下功能,请大神们帮忙啊~~~ 程序题,用pascal语言, 编程输入与以下图形（pascal repeat语句） pascal斐波那契数列要用repeat语句做请编写一个程序,利用循环语句实现打印下列图案. 用java判断素数程序填空,不要改变与输入输出有关的语句.输入一个正整数repeat (0 用free pascal编写程序,要具体（用while语句）