代码搜索：repeat
找到约 6,690 项符合「repeat」的源代码
代码结果 6,690
www.eeworm.com/read/254409/12139313
java incometax.java
import java.io.*;
/**
* 个人所得税计算程序
* @author wangjun
*
*/
public class IncomeTax {
private static IncomeTaxComputer incometax = new IncomeTaxComputer();
// 主程序
public st
www.eeworm.com/read/151799/12175618
txt 1994年4月二级笔试试题pascal.txt
94年4月全国计算机等级考试二级笔试试题
基础知识与Pascal语言程序设计
(考试时间120分钟，满分100分)
一、选择题(1~30每小题1分，31~45每小题2分，共60分)
下列各题 A)，B)，C)，D)四个选项，只有一个选项是正确的，请将正确的选项在答题卡相应位置上
涂黑。答在试卷上不得分。
1.二进制数101110转换为等值的八进制数是( )。
A) ...
www.eeworm.com/read/339554/12225313
pas ac1106.pas
program tju1106;
var
k,a,b,c:qword;
begin
repeat
read(k);
b:=1;c:=1;
repeat
a:=b;b:=c;c:=a+b;
until c>k;
writeln(a*a+b*b);
until seekeof;
end.
www.eeworm.com/read/339554/12225384
pas ac1189.pas
program tju1189;
const
maxn=500;
var
adj:array[1..maxn,1..maxn]of boolean;
route,dist,q:array[1..maxn]of word;
m,n,i,j,f,r:word;
begin
repeat
fillchar(adj,sizeof(adj),0);
f
www.eeworm.com/read/339554/12225398
pas ac1121.pas
program tju1121;
const
tail:array[0..9,0..3]of byte=((0,0,0,0),(1,1,1,1),(6,2,4,8),(1,3,9,7),
(6,4,6,4),(5,5,5,5),(6,6,6,6),(1,7,9,3),(6,8,4,2),(1,9,1,9));
var
a,b:longint;
begin
r
www.eeworm.com/read/339554/12225427
pas ac1102.pas
program tju1102;
const
maxn=20000;
var
a:array[1..maxn]of word;
n,i,t,u,op,len,maxlen:word;
begin
repeat
read(n);
for i:=1 to n do
read(a[i]);
op:=n;maxlen:=0;
www.eeworm.com/read/339554/12225433
pas ac1131.pas
program tju1131;
var
n,x:longint;
a:qword;
begin
repeat
read(n);
n:=power(2,n);
a:=n+1;
a:=a*n div 2;
repeat
read(x);
dec(a,x);
dec(n);
un
www.eeworm.com/read/339554/12225458
pas ac1015.pas
program tju1015;
var
s:string;
c:char;
begin
repeat
s:='';
repeat
read(c);
case c of
'@':s:='';
'#':if s>'' then delete(s,length(s),1);
el
www.eeworm.com/read/339554/12225474
pas ac1014.pas
program tju1014;
var
n,f,c:longint;
begin
repeat
read(n);
f:=5;c:=0;
while f
www.eeworm.com/read/339554/12225508
pas ac1007.pas
program tju1007;
var
a,s:longint;
begin
repeat
read(a);
inc(s,a);
until seekeof;
writeln(s);
end.