pascal用while计算1 2 3 -- n

#!/bin/bashsum=0i=2while(($i

programex_1;varn,tot:longint;beginn:=1;tot:=1;whilen

programcalc;vartotal:dword;i:integer;begintotal:=0;fori:=1to1000doif((imod15)=0)thentotal+=i;writeln

varn,s:longint;beginn:=1;s:=1;whiles1000;write(n);end.

programPi;constd=0.0006;//要提高精度,d要减小.varsum:double;n,sign:longint;beginsign:=1;sum:=0;n:=1;while(1/n

//用whileinti=1,sum=0;while(i

方法1#includevoidmain(){floate,a;inti,n=0;/*涉及到小数运算要用浮点型变量*/e=1,a=1;/*a=1在后面有乘积运算*/for(i=1;1/a>1e-5;i+

这么多道题……第一题：varl,i:longint;begini:=0;{清零}l:=0;whilei再问：首先感谢你的耐心指导，可是，为什么上面几题都要加i:=i+1?再答：因为i要不断递加，whi

第一题：(while)varn:longint;beginn:=1;whilen99;end.第六题：(while)varn,x,y:longint;beginn:=1000;whilen

vars:integer;n:real;beginn:=100;s:=0;whiles再问：它求的是总路程吧？一共是20次着地。要全部加起来的。。我搞定了。。programcx3;vara,s:rea

我给你几题吧,我要去参加宁波编程比赛,没时间了.1.varn,i:longint;s:real;beginreadln(n);i:=1;whileindobeginifimod2=1thens:=s+

#include"stdio.h"voidmain(){inti,sum=0;for(i=1;i

1、vara:array[1..10]ofinteger;n,m:integer;s:=real；beginforn:=1to10doread(a[n]);forn:=1to10dom:=m+a[n]

doublee;inti,k;i=1;k=1;e=1;while(1.0/i*100000

vari,ans:longint;find:boolean;begini:=0;find:=false;whilenotfinddobegini：=i+1;if(imod2=1)and(imod3=2

programexsj_1;constmax=100;varnumber:array[0..max]ofinteger;symbol:array[1..max]ofchar;s,t:string;i,

Vara,b,c:Array[1..201]Ofword;i,j,k,m,n,p,t:Longint;BeginReadln(p);Writeln(Trunc(Ln(2)/Ln(10)*p)+1);k

第1题：programt1;vari,m:integer;begini:=6;m:=91;//因为第7天离山顶只有91米,不属于循环中,所以m=6,所以只有六天,所以i=6whilei>=1do//使

vara,b:array[1..10]ofinteger;la,lb,ans:integer;m,n:int64;procedureinit;beginreadln(m,n);la:=0;lb:=0;

vara,b,c,x,y:integer;beginread(a)whilea0dobeginifa