用pascal输出一个整数序列中与指定数字相同的数的个数.

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

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

int类型所能容纳的数字位数不能超过10.我写的这个程序稍微长了点,但不受int类型容量的限制,能够处理很长的整数输入（由buffer数组的大小决定）.这程序只处理纯整数输入.有疑问尽管问. 

用辗转相除不就行了!

楼上两位全错了……不解释,不信自己手算.定理：求前n个奇数的总和=n的平方varn:longint;beginreadln(n);writeln(n*n);end.

第一道题：ProgramBd1;Varc:Integer;d:Integer;e:Integer;BeginForc:=1to4DoBeginFord:=1to4-cDoWrite('');Fore:

programsushu(input,output);vari,n,t:integer;beginread(n);fori:=2ton-1doifnmodi=0thent:=1;ift=1thenwr

ABCDE1.push栈：A,输出：空2.push栈：BA,输出：空3.pop栈：A,输出：B4.push栈：CA,输出：B5.pop栈：A,输出：BC最终输出序列便是BC

1+2+3+……+n的和可以看成是一个上底是1下底是n的梯形的面积.|1||2|||3||||4…………所以1+2+3+……+n=n*（1+n）/2.1)programsum1;varb,i:long

varn,i,j,k:longint;t:boolean;beginreadln(n);ifn=1thenbeginwritelN('no');halt;end;t:=true;fori:=2totr

输入：725194输出：124579

楼主你好!这很简单哦.vara,b,x:longint;functionmax(a,b:longint):longint;beginifa>bthenexit(a);exit(b);end;begin

vars:string;i,j,m1,m2:integer;beginreadln(s);m2:=0;m1:=0;fori:=1tolength(s)dobeginifs[i]=''thenbegin

vari,n:longint;beginreadln(n);i:=7;whilei

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

#include#defineN100intmain(){intn,a[N],i,m,sum=0;scanf("%d",&n);for(i=0;i

programnum;vartot:real;n,i:integer;nu:array[1..10]ofinteger;beginread(n);tot:=0;fori:=1tondobeginrea

#include#defineN10inta[N];intb[N];intmain(){inti;for(i=0;i再问：能不能加点注释啊...再答：#include#defineN10inta[

#include <stdio.h>void find(int x, int a[], int n){ &n

用快速排序嘛voidsortQ(int*p,intb,inte){\x05if(b\x05{\x05\x05intm=b;\x05\x05std::cout再问：这个方法我们还没学到才能不能用一些简单