Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


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

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

Старый 27.03.2013, 09:26
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Попробуйте обратиться за помощью к этим темам

Помогите решить задачу в Pascal ABC
Pascal помогите решить задание
Помогите решить задачу в Pascal
Помогите решить задачу Pascal
Помогите решить задачу в Pascal

Старый 27.03.2013, 10:16   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,359
Сказал(а) спасибо: 245
Поблагодарили 468 раз(а) в 148 сообщениях
Репутация: 80483
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 27.03.2013, 10:24   #3 (permalink)
BasKiLL
Новичок
 
Регистрация: 27.03.2013
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо Vladimir
BasKiLL вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:22.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.