279 条题解
-
0
胡伊伦 LV 7 @ 2009-07-25 11:40:44
main()
{
char a[13];
int i,sum;
for(i=1;i -
0
var a,b,c,d : integer;
st,st1:string;
begin
read(st);
st1:=st;
delete(st,12,1);
delete(st,6,1);
delete(st,2,1);
b:=0;
c:=0;
d:=0;
for a :=1 to 9 do
begin
c:=(ord(st[a])-ord(0))*a;
b:=b + c
end
begin
d:= b mod 11
end
if d=(ord(st[13]-ord[0]) then writeln ('right')
else begin
st1[13]:=chr(d);
writeln(st1)
end
end.错误是Prog64907.pas(17,1) Fatal: Syntax error, ";" expected but "BEGIN" found
Fatal: Compilation aborted大家帮看下怎么办啊
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
程序超短，第一次50分没AC，原来忘记把10换成X了......
~~~~(>_ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms郁闷 (╰_╯)#
水题都要提交第二次才AC
原来是当编码错误的时候 我输出了10 忘了转换成 X---|---|---|---|---|---|---|---|---|---|---|---|-晒最原始的程序---|---|---|---|---|--
program p1484;
var i,ans,n:longint;
a:array[0..9]of longint;
ch:char;begin
i:=0;
repeat
read(ch);
if ch'-' then
begin
inc(i);
a[i]:=ord(ch)-ord('0');
end;
until i=9;
read(ch); readln(ch);
if ch='X' then n:=10
else n:=ord(ch)-ord('0');
ans:=0;
for i:=1 to 9 do ans:=ans+a[i]*i;
ans:=ans mod 11;
if ans=n then writeln('Right')
else begin
write(a[1]);
write('-');
for i:=2 to 4 do write(a[i]);
write('-');
for i:=5 to 9 do write(a[i]);
write('-');
if ans=10 then writeln('X')
else writeln(ans);
end;
end. -
0
编译通过...
├ 测试数据 01：答案错误...程序输出比正确答案长
├ 测试数据 02：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 06：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：20 有效耗时：0msprogram ex1;
var i,a,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:integer;
b:string;
begin
read(b);
val(b[1],a1); val(b[3],a2); val(b[4],a3);
val(b[5],a4); val(b[7],a5); val(b[8],a6);
val(b[9],a7); val(b[10],a8); val(b[11],a9);
i:=a1*1+a2*2+a3*3+a4*4+a5*5+a6*6+a7*7+a8*8+a9*9;
if(a -
0
var a,d,e:string;
b,c,sum:integer;
tmp:char;begin
readln(a);
e:=a;
delete(a,2,1);
delete(a,5,1);
delete(a,10,1);
sum:=0;
for b:=1 to 9 do
begin
val(a[ b ],c);
sum:=sum+c*b;
end;
sum:=sum mod 11;
if sum=10 then tmp:='X'
else
begin
str(sum,d);
tmp:=d[1];
end;
if tmp=a[10] then write('Right')
else
begin
for b:=1 to 12 do
write(e[ b ]);
write(tmp);
end;
end. -
0
编译通过...
├ 测试数据 01：答案错误... ├ 标准行输出 Right
├ 错误行输出 Right
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：90 有效耗时：0ms
为什么这样对待我？ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
var a:array [0..1148] of integer;
s:string;
sum,s1,i,j,k:integer;
begin
readln(s);
s1:=length(s);
j:=0;
for i:=1 to s1 do
if s[i]'-' then begin inc(j);a[j]:=ord(s[i])-48 ; end;
for i:=1 to j-1 do
a[0]:=a[i]*i+a[0];
if (a[0] mod 11=a[j]) or (a[0] mod 11=10) and (s[s1]='X') then write('Right')
else if a[0] mod 11 10 then
begin for i:=1 to s1-1 do write(s[i]);
write(chr(a[0]mod 11+48));
end
else begin for i:=1 to s1-1 do write(s[i]);
write('X');
end
end.
SO easy!!!! -
0
只要是我会做的题，都是水题。。
#include "iostream.h"
char isbn[12];
int last,total;
int i;
char vali;
int main(){
cin >> isbn;
total=total+(isbn[0]-48)*1;
total=total+(isbn[2]-48)*2;
total=total+(isbn[3]-48)*3;
total=total+(isbn[4]-48)*4;
total=total+(isbn[6]-48)*5;
total=total+(isbn[7]-48)*6;
total=total+(isbn[8]-48)*7;
total=total+(isbn[9]-48)*8;
total=total+(isbn[10]-48)*9;
if (total%11==10) {vali='X';}
else {vali=total%11+'0';}if (isbn[12]==vali){cout
-
0
program op;
var t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t,a,i:longint;
s:string;
begin
readln(s);
for i :=1 to length(s) do
val(s[1],t1); val(s[3],t2); val(s[4],t3); val(s[5],t4); val(s[7],t5);
val(s[8],t6); val(s[9],t7); val(s[10],t8); val(s[11],t9);
t:=t1*1+t2*2+t3*3+t4*4+t5*5+t6*6+t7*7+t8*8+t9*9;
a:=t mod 11;
if a -
0
zhangyq987 LV 8 @ 2009-06-20 23:02:47
var
st,st1:string;
i,k:integer;
z:longint;
begin
read(st);st1:=st;
delete(st,12,1);
delete(st,6,1);
delete(st,2,1);
for i:=1 to 9 do z:=z+(ord(st[i])-48)*i;
z:=z mod 11;
if z=10 then begin if st1[13]='X' then write('Right') else
begin
delete(st1,13,1);
insert('X',st1,13);
write(st1);
end;
end
else begin if st1[13]=chr(z+48) then write('Right') else
begin
delete(st1,13,1);
insert(chr(z+48),st1,13);
write(st1);
end;
end;
end. -
0
var
i,a,m:longint;
s,s1:string;
begin
readln(s);s1:=copy(s,1,12);
delete(s,2,1);
delete(s,5,1);
for i:=1 to 9 do
begin
if s[1]'X' then
begin
a:=0;val(s[1],a);
end
else a:=10;
m:=a*i+m;delete(s,1,1);
end;
a:=0;val(s[2],a);
if s[2]='X' then a:=10;
m:=m mod 11;
if a=m then writeln('Right')
else
if m10 then writeln(s1,m)
else writeln(s1,'X');
end. -
0
var
s,i,j:integer;
str:string;
a:array[1..20]of integer;
procedure doit(c:char);
var
b:integer;
begin
case c of
'0':b:=0;
'1':b:=1;
'2':b:=2;
'3':b:=3;
'4':b:=4;
'5':b:=5;
'6':b:=6;
'7':b:=7;
'8':b:=8;
'9':b:=9;
end;
inc(j);
a[j]:=b;
end;
begin
readln(str);
j:=0;
for i:=1 to 12 do
if str[i]'-' then
doit(str[i]);
for i:=1 to j do
s:=s+a[i]*i;
s:=s mod 11;
if s10 then
begin
if s=ord(str[13])-48 then write('Right')
else begin
for i:=1 to 12 do
write(str[i]);
write(s);
end;
end
else if str[13]='X' then write('Right')
else begin
for i:=1 to 12 do
write(str[i]);
write('X');
end;
end.
秒杀
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
var
i,sum:integer;
ch:char;
s:array [1..9] of integer;
str:string;
begin
sum:=0;
readln(str);
s[1]:=ord(str[1])-48;
s[2]:=ord(str[3])-48;
s[3]:=ord(str[4])-48;
s[4]:=ord(str[5])-48;
s[5]:=ord(str[7])-48;
s[6]:=ord(str[8])-48;
s[7]:=ord(str[9])-48;
s[8]:=ord(str[10])-48;
s[9]:=ord(str[11])-48;
for i:=1 to 9 do sum:=sum+s[i]*i;
sum:=sum mod 11;
if sum10 then ch:=chr(sum+48) else ch:='X';
if ch=str[13]
then writeln('Right')
else
begin
str[13]:=ch;
writeln(str);
end;
end. -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms
#include
using namespace std;
int main () {
char isbn[15];
cin>>isbn;
short s=short(isbn[0]-'0'),i;
s+=short(isbn[2]-'0')*2+short(isbn[3]-'0')*3+short(isbn[4]-'0')*4;
for (i=6;i -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms庆祝我AC 90/180(50%)
program isbn;
var
a:string;
s:longint;
i:integer;
begin
readln(a);
s:=1*(ord(a[1])-48)+2*(ord(a[3])-48)+3*(ord(a[4])-48)+4*(ord(a[5])-48)+5*(ord(a[7])-48)+6*(ord(a[8])-48)+7*(ord(a[9])-48)+8*(ord(a[10])-48)+9*(ord(a[11])-48);
if a[13]'X' then
begin
if (s mod 11)=(ord(a[13])-48) then writeln('Right');
if (s mod 11)(ord(a[13])-48) then
begin
for i:=1 to 12 do write(a[i]);
if (s mod 11=10) then writeln('X') else writeln(s mod 11);
end;
end
else
begin
if (s mod 11=10) then writeln('Right');
if (s mod 1110) then
begin
for i:=1 to 12 do write(a[i]);
if (s mod 11=10) then writeln('X') else writeln(s mod 11);
end;
end;
end.
胡伊伦
LV 7
@ 2009-07-25 11:40:44
