pascal 整数 空格
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/31 07:07:25
![pascal 整数 空格](/uploads/image/f/738709-61-9.jpg?t=pascal+%E6%95%B4%E6%95%B0+%E7%A9%BA%E6%A0%BC)
前面写错了,不好意思
想了想...1--varn,m:integer;functionf(n,m:integer):longint;vari,s:longint;{因为总和可能很大所以用longint}beginfori:
vara:array[1..1000]ofinteger;n,i,j,k:integer;beginreadln(n);j:=1;fori:=1tondobeginread(a[i]);ifa[i]
varn:longint;beginreadln(n);ifnmod7=0thenwriteln('yes'){除以7取余,是否等于0,等于则输出yes,否则输出no}elsewriteln('no'
pascalpascalpascal!
vari,c:integer;beginc:=0;fori:=1to1000doifimod15=0thenc:=c+i;writeln(c);end.
functionisOk(n:integer):boolean;vari:integer;beginresult:=pos('5',inttostr(n))>0;end;functionmyFunc(
eginreadln(n);fori:=1tondoread(a[i]);k:=1;fori:=1ton-1doifa[k]再问:说明部分也写一下再答:beginreadln(n);{读入一共多少个数
vari,k,n1,n2:integer;beginn1:=0;n2:=0;fori:=1to20dobeginreadln(k);ifk>0thenn1:=n1+1elseifk
vari,j,la,lb,len,t:longint;ch:char;a,b:array[1..100000]oflongint;c:array[1..200000]oflongint;beginas
用辗转相除不就行了!
varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!
审题错了吧,求所有素因子意思就像因子分解。比如18=2×3×3你找素因子用的i那个for循环吧,按你的求法,一个因子只能在式子中出现一次。下一次循环i的值就增加了嘛。你可以按照这个思路来:输入k,wh
vara,n,i:longint;beginfori:=1to10dobeginread(a);ifa>0thenn:=n+1;end;write(n);end.
programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr
vari,n,r:longint;s:single;beginreadln(n);fori:=1tondobeginreadln(r);writeln(r*r*3.1415926:0:2);end;e
vars:string;i,j,m1,m2:integer;beginreadln(s);m2:=0;m1:=0;fori:=1tolength(s)dobeginifs[i]=''thenbegin
{而这10个数:106991041201071123310297100 按一定顺序排列后得到:120112107106104102100999733 正中间有两个数:104102,中位数就是这两个数的
vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.