王朝知道

分享

 

01.PASCAL题
Jsoi 2004-2005 连云港 夏令营 A 组 第一天试题 1. If and only if M=2*2*2*2*...,there is no answer. 假设: A+(A+1)+(A+2)+......+(A+k)=M, 则 : (2A+k)(k+1)=2M 可以确定 K的范围(A最小=1时k方可最大）:maxk(maxk...查看完整版>>PASCAL题02.PASCAL题
苹果摘陶陶 (文件我也给加完了)var n,m,sum,k,i,j,t:longint; app,tao:array[0..100000] of longint; b:array[0..100000] of boolean; begin assign(input,'apple.in');reset(input); assign(output,'apple.out')...查看完整版>>PASCAL题03.PASCAL题
1．求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod b); end ; 2．求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a<b then swap(a,...查看完整版>>PASCAL题04.PASCAL题
var a:longint;beginread(a);writeln(swap(a));end.PASCAL内置函数，作用就是交换一个变量的高低位，如果swap(a)中a是longint，即32位二进制数，那就是交换前16位和后16位，如果a是integer，即16位二进制数，那就是交...查看完整版>>PASCAL题05.pascal题
program y1;var i,j,temp:integer; begin if length(s) mod 2=0 then temp:=length(s) div 2 else temp:=length(s) div 2 +1; pd:=true; for i:=1 to temp do begin j:=length(s)-i+1; if s<>s then pd:=false...查看完整版>>pascal题06.pascal题
1.program v1;var a:array[1..10] of integer; i,tot:integer; begin for i:=1 to 10 do read(a); tot:=0; for i:=1 to 5 do begin writeln(a[i*2]);inc(tot,a[i*2]); end; writeln(tot); tot:=0; for i:=1 to 5 do ...查看完整版>>pascal题07.PASCAL题
Var s,f,g:string; k1,k2,j1,j2,l,i:Integer; e:boolean;Begin Write(''Input file Name: ''); readln(f); Write(''Output file Name: ''); readln(g); assign(Input,f); assign(Output,g); reset(Input...查看完整版>>PASCAL题08.pascal题
PROGRAM aa;VAR ch:array[1..23] of char; c:char; s:string; fei:real; a,b,n,tot,i,j,k:integer;BEGIN read(c); while c<>\' \' do begin s:=s+c; read(c); end; read(n); for i:=...查看完整版>>pascal题09.pascal题
1.program a1;const n=16;const a:array[1..n] of integer =(3,6，11，45，23，70，67，26,89，90，15，56，50，20,10);var i,k,b1,e1,b2,e2:integer;var b:array[1..n] of integer;beginwriteln('please read data:...查看完整版>>pascal题10.Pascal基础题
(便携机,微型机),巨型机,大型机,中型机,小型机,单片机...查看完整版>>Pascal基础题

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。