用Pascal语言编写输入20个数,统计正数,负数

#include"stdio.h"intmain(){\x09inti,j,n;\x09inta[12];\x09intmin,mx;\x09scanf("%d",&n);\x09for(i=0;i

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

前面写错了，不好意思

1.思路：用一个字符串数组储存输入的数据，并分别输出。程序：Vara:array[1..3]ofstring;i:integer;BeginFori:=1to3doReadln(a[i]);Fori:

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

varn,round,i,j,k:integer;a:array[1..100,1..100]ofinteger;beginreadln(n);k:=1;forround:=1tondoifround

vars,i,n:long;beginwrite('N=');readln(n);s:=0;fori:=1tondos:=s+i;writeln(s);end.

没时间去写了.我的感觉是记搜,定义f(a,b)为第a位到第b位之间这一段算式的可能数.如果b-a>1且[a,b]段没有运算符,f(a,b)返回0即没有可能.如果b-a=1且[a,b]为数字.返回1.否

programtestcase;Usessysutils;varhex,result:string;hex_len,i,ch,chv,value,bits:Integer;good_char:bool

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

#include"stdio.h"main(){floata[20],avg=0.00;inti;printf("Pleaseinputdatas!\n");for(i=0;i

programex01;vara:array[1..100000000]ofinteger;b,c:array[1..100]oflongint;i,n,m,x,y,j:longint;procedu

vara,n,i:longint;beginfori:=1to10dobeginread(a);ifa>0thenn:=n+1;end;write(n);end.

programj;vara,b,c,m,n:integer;beginreadln(m);a:=mdiv100;b:=(mdiv10)mod10;c:=mmod10;n:=c*100+b*10+a;w

Consta:array[1..23]ofinteger=(11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,11,19,9);varmax,i,l

第一题varr,x,y:real;beginreadln(r);{读入半径}readln(x,y);{读入坐标}ifsqr(x)+sqr(y)=sqr(r)thenwriteln('yes'){这个是

f[i,j]=f[i-1,j]+f[i-1,j+1]f[i,j]表示杨辉三角形的第i行第j列.f[1,1]=1;fori:=2to10doforj:=1toidof[i,j]=f[i-1,j]+f[i

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

这么多问题,不分过来谁答啊?而且没有分?!再问：谢谢指教，但。。。你给爹滚再答：我还就不滚了！！！！！！

满意请给分,谢!programex;typestudent=record//定义学生记录stuID:integer;//学号homework:boolean;//判断是否交作业end;varstu:a