Pascal помогите решить

BasKiLL · 27.03.2013, 09:26

Определить, будет ли начислена студенту стипендия по результатам экзаменов (стипендия начисляется, если все экзамены сданы на «хорошо» и «отлично»), если известны оценки по всем экзаменам.

Vladimir_S · 27.03.2013, 10:16

Цитата:

Сообщение от 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.

BasKiLL · 27.03.2013, 10:24

Спасибо Vladimir

27.03.2013, 09:26	#1 (permalink)
BasKiLL Новичок Регистрация: 27.03.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal помогите решить Определить, будет ли начислена студенту стипендия по результатам экзаменов (стипендия начисляется, если все экзамены сданы на «хорошо» и «отлично»), если известны оценки по всем экзаменам.

27.03.2013, 09:26
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Попробуйте обратиться за помощью к этим темам Помогите решить задачу в Pascal ABC Pascal помогите решить задание Помогите решить задачу в Pascal Помогите решить задачу Pascal Помогите решить задачу в Pascal

27.03.2013, 10:24	#3 (permalink)
BasKiLL Новичок Регистрация: 27.03.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо Vladimir

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070