pascal斜线输出

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