社区讨论

求pascal的解答，为什么只有50？

种种子
P1200[USACO1.1] 你的飞碟在这儿 Your Ride Is Here参与者 2已保存回复 1

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
1 条
当前快照
1 份
快照标识符
@mi4erpg9
此快照首次捕获于
2025/11/18 18:06
4 个月前
此快照最后确认于
2025/11/18 18:06
4 个月前
查看原帖
CPP
var
  e:array[1..2] of string[6];
  c,d:int64;
  i:integer;
begin
  c:=1;
  d:=1;
  for i:=1 to 2 do
    readln(e[i]);
  for i:=1 to 6 do
    c:=(ord(e[1][i])-64)*c;
  for i:=1 to 6 do
    d:=d*(ord(e[2][i])-64);
  if c mod 47=d mod 47 then write('GO') else write('STAY');
end.

回复

共 1 条回复，欢迎继续交流。

正在加载回复...