用pascal表达b的平方-4ac

(2n²+n)²+(2n²+n+1)²+···+(2n²+2n)²=(2n²+2n+1)²+···+(2n²+

vari,j,s:integer;f:boolean;begins:=0;fori:=10to99doifimod10+idiv10=8thenbeginf:=true;forj:=2totrunc(

1、vari,sum,n:longint;beginreadln(n);sum:=1;fori:=1tondosum:=sum*i;writeln(sum);end.2、varf:array[1..1

vari,a,b:longint;beginfori:=1000to9999dobegina:=idiv100;b:=imod100;ifsqr(a+b)=ithenwriteln(i);end;en

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

vara,b:longint;c:real;{定义变量a,b整形c实型}begina:=2;b:=4;{a,b赋值}ifa+b>5thenc:=1/(a+2*b){判断真执行}elsec:=1/(b+

　　如上图,输入、输出的截图　　var　　a,b,c,x,y,t:double;　　begin　　readln(a,b,c);　　t:=b*b-4*a*c;　　if t>0　　then

我们学校也用FreePascal,而不是教科书上那种老师说的好像是程序小,操作简单,还有纠错功能,中学生也就只能看懂这个了而且是程序竞赛指定软件

vars,n:longint;functionprime(x:longint):boolean;vari:longint;beginifx>1thenbegini:=2;while(i*inthenp

这是结果：361529784361784529529361784529784361784361529784529361下面是代码varu:array[1..9]ofboolean;a:array[1.

vara:string;t,i,s1,s2,p,d,j:longint;code:integer;k:boolean;beginreadln(a);k:=true;t:=length(a);s1:=0

第一题：vara,b:array[1..1000]oflongint;i,n:longint;procedurekp(l,r:longint);vari,j,mid,t:longint;begini:

/>-(2ab)的3次方+3ab×a的平方×b的平方=-(2ab)^3+3ab×(a^2)×(b^2)=-8(a^3)(b^3)+3(a^3)(b^3)=(-8+3)(a^3)(b^3)=-5(a^3

Pascal是语言FreePascal,TurboPascal,Delphi是开发工具Delphi所用的Pascal有点不一样,是改造过的Pascal语言是语言,工具是工具就像C++对应的开发工具有T

thenif改为elseif

programDoingData;varn:longint;sum:longint;n1:real;n2:longint;n3:real;a:array[0..1000]oflongint;f:arr

functiongcd(a,b:longint):longint;varmid:longint;beginwhileb0dobeginmid:=b;b:=amodb;a:=mid;end;exit(a

vark,n,i,j,t:longint;a:array[1..100]oflongint;s:int64;beginreadln(k,n);t:=n;i:=0;whilet0dobegini:=i+

programtrack;vart1:array[1..10000]oflongint;top,n,i:integer;rd:char;f:boolean;beginrd:='';top:=0;f:=

请补充一下题目.再问：AtoB试题描述给定一个a进制数c，将它变成b进制并输出。输入要求读入三个整数，第一行是一个待转换的a进制数c(要用字符串读入)，第二行是两个自然数a和b。输出要求输出以如下形式