用PASCAL 编程,输出1-999中能被3整除,且至少有一位数字十五的所有整数

一三一三亮晶晶满天都是小星星么!笨脑!求采纳

programex1_1;vara,b,c:integer;beginreadln(a,b,c);a:=adiv3;b:=b+a;c:=c+a;b:=bdiv3;a:=a+b;c:=c+b;c:=cd

vara,b:array[1..1000000]oflongint;k,n,s,t:longint;procedurebg(p,q:longint);varm,i,j,y:longint;begini

这题需要用到高精度加法以及高精度乘法【参考程序】constmaxn=100;varlen,n,i,j,h,k:longint;     a,b:arr

Constn=3;Vara:Array[1..1000]ofinteger;i,m,j,s:integer;BeginFori:=1tomdoa[i]:=1;read(m);j:=0;Fori:=1t

1.C2.B3.C4.A

第一道题：ProgramBd1;Varc:Integer;d:Integer;e:Integer;BeginForc:=1to4DoBeginFord:=1to4-cDoWrite('');Fore:

我给你几题吧,我要去参加宁波编程比赛,没时间了.1.varn,i:longint;s:real;beginreadln(n);i:=1;whileindobeginifimod2=1thens:=s+

这个似乎没有数学公式,我的做法……fori:=10to99dofor循环,从10到99begina:=imod10;a是个位b:=idiv10;b是十位ifa*b=a+bthenwriteln(i);

vari,x,s:longint;beginfori:=1to100dobeginx:=2+i*10;s:=s+x;end;writeln(s);end.

其实我没编译,但愿能过vari,j,n:longint;beginreadln(n);fori:=1tondobeginforj:=iton-i+1dowrite('');forj:=1toidowr

VARi,j,k:integer;BEGINFORi:=0TO33DOFORj:=0TO50DOBEGINk:=90-i-j;IF15*i+10*j+5*k=500THENwriteln(i:5,j:

programxiaoqiu;varb:integer;a,c:real;begina:=100;c:=100;forb:=2to3do{第一次落地时走过路程为100,也就是a,所以从第2次开始循环}

1、题目没错吧下面是程序,不过不可能符合的啊vari:longint;beginfori:=0to9doifi*6528=(30+i)*8256thenwriteln(i);end.2、vari:lo

vars:string;i:longint;beginreadln(s);writeln(length(s));fori:=1tolength(s)dowrite(s[i],'');writeln;f

for(i=1;i再问：printf("%d\t",2*i*(i%2==0?-1:1));这句什么意思再答：i%2==0?-1:1语句是？：三元运算符含义是i能被2整除就返回-1，不能被整除就返回1再

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是

我帮你在QQ上解答了

programnum;vartot:real;n,i:integer;nu:array[1..10]ofinteger;beginread(n);tot:=0;fori:=1tondobeginrea

满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a