Pascal 输入一个4*4的矩阵

又是我.vars:string;i:longint;beginreadln(s);ifs[1]''thens[1]:=chr(ord(s[1])-32);fori:=2tolength(s)doifs

varn:longint;beginreadln(n);ifnmod7=0thenwriteln('yes'){除以7取余,是否等于0,等于则输出yes,否则输出no}elsewriteln('no'

问一下：对于数据的顺序有没有什么要求?ForExample：Input：       1234   

varn:real;beginreadln(n);writeln('n的平方:',sqr(n):0:6);writeln('n的平方根:',sqrt(n):0:6);writeln('n的3次方根:'

var a:array[1..5,1..5] of integer;    i,j,max,ij,x,y:integer;begi

varx,s:real;beginread(x);s:=0;ifx

这个其实可以用多种方法实现方法1：分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前

programyueshuhe;varn,i,s:longint;beginwriteln('inputn:');readln(n);s:=1;fori:=2tondobeginifnmodi=0th

只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了

varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!

能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.

p和m不是integer,是real而且输出的时候会用科学记数法显示,所以最好再定义2个变量,把面积和周长存起来,writeln([变量名]：0：2)【意思是保留2位小数】

审题错了吧，求所有素因子意思就像因子分解。比如18=2×3×3你找素因子用的i那个for循环吧，按你的求法，一个因子只能在式子中出现一次。下一次循环i的值就增加了嘛。你可以按照这个思路来：输入k，wh

第四个if那行末尾是)而不是>在错误信息那里有提示错误发生在(14,2)即第14行第2位,在附近（不一定一定在那里）找找就能发现

用字符数组存储这N个数再用ASCII码将字符类型的数字转换成整数数字再加起来即可；vara:array[1..10000]ofchar;i,s,n:longint;beginfori:=1to4dor

varn:longint;beginreadln(n);writeln(abs(n));{绝对值}writeln(sqr(n));{平方}writeln(sqrt(n));{平方根}writeln(p

楼主你想表达什么?输入还是输出?再问：输出图形，输入行数再答：n的范围是不是小于26？再问：是再答：写好了vari,j,n:integer;c:char;beginread(n);c:='a';for

vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.

vara:array[1..4,1..4]ofinteger;n,i,j,s:integer;beginfori:=1to4doforj:=1to4doread(a[i,j]);s:=0;fori:=

数字操作：varn,s:integer;beginreadln(n);s:=0;whilen>0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.字符串操