别问我……我也不知道怎么证明
Program p2505;
var
n:double;
begin
while not seekeof do
begin
read(n);
while n>18 do n:=n/18;
if n<=9 then writeln('Stan wins.')
else writeln('Ollie wins.');
end;
end.
这段程序代码通过不断读取输入的数值并进行处理,判断其是否大于18,如果不大于18,则进一步判断其是否小于等于9来决定Stan或Ollie谁赢得比赛。程序采用循环结构确保所有输入都被正确处理。
别问我……我也不知道怎么证明
Program p2505;
var
n:double;
begin
while not seekeof do
begin
read(n);
while n>18 do n:=n/18;
if n<=9 then writeln('Stan wins.')
else writeln('Ollie wins.');
end;
end.
273

被折叠的 条评论
为什么被折叠?