=1*2*3*4*5, 但是,小明是个标新立异的人,他准备重新定义新的阶乘概念:将原来的每个数相乘变为i不大于n的所有奇数相乘。例如: 511=1*3*55!!表示新定义的阶乘)。现在你明白这种阶乘的意思了吧!可是小明的计算能力很差,需要你帮忙计算n!!的值。输入输入一个整数n (2N=20)输出输出一个整数,表示n!!的...
var st1:string;i,j:integer;begin read(st1);i:=length(st1);for j:=1 to i do if st1[j] in ['a'..'z'] then write(chr(ord('z')-ord(st1[j])+ord('a')))else write(st1[j]);end.
p:=0;for i:=1 to n do p:=p*10+(ord(s[i])-48);u:=0;try(0,1,0);if u<>0 then begin for i:=1 to u do for j:=i+1 to u do begin if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t; end;end;for i:=1 to u do begin str(a[i],s1)...
It says. Update 3Gb and when i update, i don't have any dlc Pls help Reply B beardedGOAT Rookie Jul 17, 2024 #87 acemark said: Tested By JrPTT - acemark WORKING It says update 3GB And when I do, there is no DLC. Is there anything i can do? Reply G GeorgeWashi...
if i mod 2=1 then for j:=1+(i-1)*5 to 5+(i-1)*5 do write(j,' ')else for j:=5+(i-1)*5 downto 1+(i-1)*5 do write(j,' ');writeln;end;end.第二道：var a,b,i,j,k:longint;aa:array[0..10,0..10] of longint;begin k:=0;readln(a,b);for i:=...
const max=3000;var qm:array[1..max] of string[60];num:array[1..max] of byte;pnt:array[1..max] of word;closed,open,n,i:word;procedure print;var buf : array[1..50] of word;i,j,k : word;begin i:=open; j:=0;while i<>0 do begin j:=j+1; buf[j]:=i;...
s没有+1，无法退出循环 应该是：var i,j,k,s:integer;begin s:=1;read(i);repeat read(j);if i<j then K:=j else k:=i;i:=j;s:=s+1；until s=4;write(k);end.
```pascal var a: array[1..n] of LongInt;i, n, k: Integer;begin a[1] := 1;a[2] := 2;// 初始化其余金额为最大值，因为1元和2元已经是最小单位 for i := 3 to n do a[i] := High(a); // 可以设为最大整数值 readln(n);// 如果金额小于等于9，直接读取预设的...
program search;var i,j,k:longint;begin i:=0;j:=0;k:=0;while i<10000 do begin inc(j);if (j mod 3=0) or (j mod 5=0) then begin k:=k+1;write(j,' ');if k mod 20=0 then begin writeln;k:=0;end;i:=i+1;end;end;end....
SQL, MySQL, C语言, C++语言, PERL, PHP, Ruby, Ruby on Rails, Rails, Python, HTML, XHTML, CSS, CGI, Shell, Unix, JavaScript, jQuery, Radius, UML, GPRS, GSM,i-Mode, WiFi, WML, WiMax, SOAP, Socket, WSDL, Makefile, Prototype, Sigma, CMMI, EVM, PMP等IT技术教程和实例,让一切容易学...