计算星期几pascal语言

来源：百度知道 编辑：UC知道 时间：2024/06/24 11:08:59
2007年1月1日是星期一，请问n天后是星期几？

Input

只有一个正整数：n
(1<=n<=10000)

Output

只有一个数据：n天后是星期几(用英文表示)

var n:integer;
begin
case n mod 7 of
1:writeln('Tuesday');
2:writeln('Wednesday');
3:writeln('Thursday');
4:writeln('Friday');
5:writeln('Saturday');
6:writeln('Sunday');
else writeln('Monday');
end;
end.

var k,n:longint;
begin
read(n);
k:=n mod 7;
case k of
1:writeln('Tuesday');
2:writeln('Wednesday');
3:writeln('Thursday');
4:writeln('Friday');
5:writeln('Saturday');
6:writeln('Sunday');
7: writeln('Monday');
end;
end.