Question

PASCAL编程

1783: 小高考
时间限制: 1Sec 内存限制: 64 MB
题目描述
懒羊羊在前一阵准备羊村的小高考复习时表现出了罕见的勤奋，现在他得知了小高考四门必修课的成绩，他想知道根据羊村的高考政策，他在羊村高考中能加几分。
羊村高考政策如下：
分数段 等级
成绩>=90 A
90>成绩>=75 B
75>成绩>=60 C
成绩<60 D
每得一个A，可在羊村高考中加1分，若得4A，则可以加5分。当然，只要有一门功课得D，那么就将失去羊村高考资格。
输入
仅有一行，4个不大于100的非负整数，相邻两数之间用空格隔开。
输出
仅有一行，若有D级存在，则输出“Poor LanYangYang”(引号不输出，注意大小写)；否则输出懒羊羊在羊村高考中的加分。
样例输入
输入样例1：
100 95 89 94

输入样例2：
0 0 0 0
样例输出
输出样例1：
3

输出样例2：
Poor LanYangYang
提示

Answer 1

var a,b,c,d,sum:longint;
begin
readln(a,b,c,d);
if (a<60)or(b<60)or(c<60)or(d<60)
then
begin
writeln('Poor LanYangYang');

exit;
end;
if a>=90 then sum:=sum+1;
if b>=90 then sum:=sum+1;
if c>=90 then sum:=sum+1;
if d>=90 then sum:=sum+1;
if sum=4 then sum:=5;
writeln(sum);
end.
没编译过，直接打出来的，你可以试试看。