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

Вычислить количество студентов у которых нету среди заданых оценок 2 и3

25.07.2010, 14:33. Просмотров 966. Ответов 1
Метки нет (Все метки)

подскажите пожалуйста как примерно решить эту задачку: среди троих студентов, которые имеют заданные оценки вычислить количество студентов, которые не имеют оценок 2 и 3. да задачка вроде и легкая, но я запутался)) заранее благодарен.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.07.2010, 14:33
Ответы с готовыми решениями:

Определить количество студентов, у которых нет ни одной двойки
Помогите решить, кто в этом шарит... буду очень благодарен!:) Задана таблица...

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

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

Определить количество студентов, у которых средний балл превышает заданное пользователем значение
Указания. Исходные данные должны быть предварительно записаны в текстовый файл....

Определить, есть ли среди оценок двойки
Известны оценки по информатике 28 учеников класса. Есть ли среди них двойки?

1
Jabbson
Эксперт по компьютерным сетям
3348 / 2423 / 746
Регистрация: 03.11.2009
Сообщений: 7,759
Записей в блоге: 3
25.07.2010, 15:33 2
Лучший ответ Сообщение было отмечено hardboy как решение

Решение

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
25
26
27
28
program stud;
uses crt;
type st=record
  mark:array [1..10] of byte;
 end;
var s:st;
 a:array [1..3] of st;
 i,j:integer;
 suc:boolean;
begin
 clrscr;
 for i:=1 to 3 do begin
  j:=1;
  writeln('Оценки студента #',i,' (0, чтобы закончить): ');
  repeat
   readln(a[i].mark[j]);
   inc(j);
  until a[i].mark[j-1]=0;
 end;
 clrscr;
 write('Студенты, не имеющие оценок 2 и 3: ');
 for i:=1 to 3 do  begin
  suc:=true;
  for j:=1 to 10 do if (a[i].mark[j]=2) or (a[i].mark[j]=3) then suc:=false;
  if suc=true then write(i, ' ');
 end;
 writeln;writeln('нажмите клавишу...'); readkey
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.07.2010, 15:33

Вычислить k первых членов арифметической прогрессии, заданых рекурентной формулой.
Вычислить k первых членов арифметической прогрессии, заданых рекурентной...

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

Найти количество столбцов таблицы, среди которых нет "похожих"
Задача звучит так: "Два столбца таблицы будем называть "похожими", если...


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

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

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