斜线输出 Pascal
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/06 06:15:02
vara:array[1..1000]ofstring;i,j,n,b:integer;k:string;beginn:=1;readln(a[n]);whilea[n]'end'dobeginn:=
这是输出字母的:vari,j,k,n:integer;beginwrite('N=');readln(n);fori:=1tondobeginwrite('':n-i);forj:=1to2*i-1d
方法一:当输入的数据不超过10的时候(因为超过10的话结果不一样了),可以用这样的方法实现:var s:lint64;
varn:longint;beginreadln(n);ifnmod7=0thenwriteln('yes'){除以7取余,是否等于0,等于则输出yes,否则输出no}elsewriteln('no'
var a:array[1..5,1..5] of integer; i,j,max,ij,x,y:integer;begi
pascalpascalpascal!
这是我写的,varn,i,t:integer;beginreadln(n);fori:=1tondoifnmodi=0theninc(t);ift=2thenwriteln('Yes'){看如果这个数
高精度与高精度乘法【问题描述】设高精度数a[1]a[2]...a[n-1]a[n]与高精度b[1]b[2]...b[n-1]b[n]的乘法可表示如下:a,b:array[1..n]of0..9;即:a
vari,n,m,max,min:longint;beginreadln(n);max:=-maxlongint;min:=maxlonint;//初始化fori:=1tondobeginreadln
1vara:array[1..10]ofinteger;i,ji,ou:longint;beginfori:=1to10doread(a[i]);fori:=1to5dobeginwriteln(a[
vara,b:char;beginreadln(a,b);iford(a)>ord(b)thenwriteln(b,'',a)else(writeln(a,'',b));end.应该没错
第一道题:ProgramBd1;Varc:Integer;d:Integer;e:Integer;BeginForc:=1to4DoBeginFord:=1to4-cDoWrite('');Fore:
error50:doexpecte说明你有语法错误导致程序无法运行.修改程序如下::::::vari,j:integer;beginfori:=1to9dobeginwrite('1':40-3*i)
vari,x,s:longint;beginfori:=1to100dobeginx:=2+i*10;s:=s+x;end;writeln(s);end.
输入:725194输出:124579
vars:string;i,j,m1,m2:integer;beginreadln(s);m2:=0;m1:=0;fori:=1tolength(s)dobeginifs[i]=''thenbegin
programProject1;varn,i,j,k,l:Longint;matrix:array[1..100,1..100]ofLongint;beginReadln(n);fori:=1tond
programt1;vara,b,c,n:integer;beginn:=a+b+c;if(a+b>c)and(b+c>a)and(a+c>b)thenwriteln(n)elsewriteln('N
varr:real;t:longint;beginreadln(r);r:=r*100;t:=trunc(r);r:=t/100;writeln(r:0:2);end.
programnum;vartot:real;n,i:integer;nu:array[1..10]ofinteger;beginread(n);tot:=0;fori:=1tondobeginrea