Pascal推测星期几
http://218.5.5.242:9015/JudgeOnline/showproblem?problem_id=1105这题怎么做，成功后加分...
http://218.5.5.242:9015/JudgeOnline/showproblem?problem_id=1105
这题怎么做，成功后加分 展开
这题怎么做，成功后加分 展开
2个回答
展开全部
var ch:char;
begin
readln(ch);
case ch of
'M':writeln(1);
'T':writeln(2,' ','or',' ',4);
'W':writeln(3);
'F':writeln(5);
'S':writeln(6,' ','or',' ',7);
else writeln('Error');
end;
end.
应该对了
begin
readln(ch);
case ch of
'M':writeln(1);
'T':writeln(2,' ','or',' ',4);
'W':writeln(3);
'F':writeln(5);
'S':writeln(6,' ','or',' ',7);
else writeln('Error');
end;
end.
应该对了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
名片
2024-10-28 广告
作为优菁科技（上海）有限公司的一员，Altair HyperWorks是我们重点代理的CAE软件套件。该软件以其全面的仿真能力、丰富的建模工具和高效的优化设计功能著称，广泛应用于汽车、航空航天、能源及电子等行业。HyperWorks通过集成...
点击进入详情页
本回答由名片提供
展开全部
var s:char;
begin
read(s);
case s of
's':write('6 or 7');
'm':write('1');
't':write('2 or 4');
'w':write('3');
'f':write('5');
else write('Error');
end;
end.
begin
read(s);
case s of
's':write('6 or 7');
'm':write('1');
't':write('2 or 4');
'w':write('3');
'f':write('5');
else write('Error');
end;
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
