Цитата:
Сообщение от BasKiLL
Определить, будет ли начислена студенту стипендия по результатам экзаменов (стипендия начисляется, если все экзамены сданы на «хорошо» и «отлично»), если известны оценки по всем экзаменам.
|
Код:
Var
NS,mark,i:Byte;
b:Boolean;
Begin
Write('Number of subjects: ');
Readln(NS);
b:=false;
i:=0;
Repeat
Inc(i);
Write('Next mark: ');
Readln(mark);
if mark<4 then b:=true;
Until b or (i=NS);
If b then write('No...') else write('Yes!!!');
Readln
End.