pascal蒟蒻求助（超简单问题

PASCAL

var
 n,t,s:longint;
 c:char;
begin
 read(n);
  readln(c);
      if n>1000 then
       begin
       t:=(n-1000) div 500;
        if (n-1000) mod 500<>0 then s:=8+(t+1)*4;
         if (n-1000) mod 500=0 then s:=8+t*4;
       end
       else
        s:=8;
   if c<>'n' then s:=s+5;//这段
 writeln(s);
end.

题目：输入n和字符c，如果

n<=1000

就输出8，如果

n>1000

那么超出的部分每500g加4，不足按500g计算；字符c如果为y就加5，如果为n就不做任何处理，最后输出

问题：在加标注的那一句如果我是

c='y'

就会输出12，如果是

c<>'n'

就会输出17,17是正确答案

求解为什么

样例输入：

1200

y

样例输出：

求助大佬

qwq

pascal蒟蒻求助（超简单问题

讨论操作

回复

相关推荐

pascal蒟蒻求助（超简单问题