Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/16: Рейтинг темы: голосов - 16, средняя оценка - 4.81
gvindox
0 / 0 / 0
Регистрация: 05.10.2010
Сообщений: 4
1

Подсчитать число студентов, не имеющих оценок 2 и 3

07.10.2010, 14:09. Просмотров 3350. Ответов 1
Метки нет (Все метки)

вводя в цикле по 5 оценок каждого студента, подсчитывается число студентов, не имеющих оценок 2 и 3. В группе учится n студентов.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2010, 14:09
Ответы с готовыми решениями:

Подсчитать число студентов, не имеющих оценок 2 и 3
Напишите Паскаль-программу, где вводя в цикле по 5 оценок каждого студента, подсчитывается число...

Подсчитать число студентов, имеющих все отличные оценки в группе
Подсчитать число студентов, имеющих все отличные оценки в группе IKS. Вывести фамилии, имена,...

Выбрать и вывести фамилии неуспевающих студентов и по каким предметам, подсчитать средний бал оценок каждого студента
По итогам аттестации по нескольким предметам выбрать и вывести фамилии неуспевающих студентов и по...

Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.
Ребят, помогите пожалуйста. Одну задачку сделал вторую не получается, на форуме похожих не...

Вычислить количество студентов у которых нету среди заданых оценок 2 и3
подскажите пожалуйста как примерно решить эту задачку: среди троих студентов, которые имеют...

1
Puporev
Модератор
58911 / 44596 / 30780
Регистрация: 18.05.2008
Сообщений: 106,850
07.10.2010, 19:35 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var n,i,j,a,f,k:integer;
begin
clrscr;
write('Количество студентов n=');
readln(n);
writeln('Введите по 5 оценок каждого студента:');
k:=0;
for i:=1 to n do
 begin
  writeln('Студент ',i);
  f:=0;
  for j:=1 to 5 do
   begin
    repeat
    readln(a);
    until a in [2..5];
    if a in[2,3] then f:=1;
   end;
  if f=0 then k:=k+1;
 end;
write('Не имеют оценок 2 и 3 студентов=',k);
readln
end.
2
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2010, 19:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Напечатать фамилии студентов, имеющих наименьший возраст
1)Даны три числа. Написать программу, подсчитывающую количество чисел, равных 0. 2)Дано...

В заданном предложении подсчитать число слов, имеющих 7 букв
Здравствуйте. Нужна помощь в решении такой задачки со строками: В заданном предложении подсчитать...

Обработка оценок студентов
известно что в следующем фрагменте программы массив матрица содержит оценки студентов группы,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.