P1424 小鱼的航程(改进版)

P1424 小鱼的航程(改进版)

题目背景

原来的题目太简单，现改进让小鱼周末也休息，请已经做过重做该题。

题目描述

有一只小鱼，它上午游泳150公里，下午游泳100公里，晚上和周末都休息（实行双休日)，假设从周x(1<=x<=7)开始算起，请问这样过了n天以后，小鱼一共累计游泳了多少公里呢？

输入输出格式

输入格式：

输入两个整数x,n(表示从周x算起，经过n天，n在long int范围内）。

输出格式：

输出一个整数，表示小鱼累计游泳了多少公里。

输入输出样例

输入样例#1：

3 10

输出样例#1：

2000

var

x,n,ans:longint;

procedure hh;

begin

if x= 6 then begin//周六和周日休息，直接到周一

x:=x+ 2 ;

n:=n -2 ;

end;

if x= 7 then begin//周日休息，直接到周一（至于写这个是防止小鱼从周日开始）

x:=x+ 1 ;

n:=n -1 ;

end;

if x= 8 then x:= 1 ;//回到周一

if n<= 0 then exit ;//训练完毕

dec(n);//过了一天

inc(x);//到了下一天的星期*

ans:=ans+ 150 + 100 ;//一天游的距离

hh;

end;

begin

read(x,n) ;

hh;

write(ans);

end.