Вывести количество участников, прошедших на городскую олимпиаду

@FDers · Регистрация: 16.03.2017

Author24 — интернет-сервис помощи студентам

Уровень A. На вход программы подаются данные о результатах районной олимпиады. В первой строке – количество участников N, а следующие N строк имеют следующий формат:
<Фамилия> <Имя> <Баллы>
Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> – целое число, обозначающее общее количество баллов, набранное участником. Все данные разделены пробелами. Пример входной строки:
Петечкин Вася 152
Чтобы на городскую олимпиаду проходят участники, набравшие в сумме более 100 баллов. Требуется вывести количество участников, прошедших на городскую олимпиаду.

@Cyborg Drone · 23.03.2017, 21:11

Pascal

var i, j, n, k, t, err: integer;
    s: string;
begin
  readln(n);
  k := 0;
  for i := 1 to n do
    begin
      readln(s);
      j := length(s);
      while s[j] <> ' ' do dec(j);
      val(copy(s, j + 1, length(s) - j), t, err);
      if t > 100 then inc(k)
    end;
  writeln(k)
end.

@FDers 0 / 0 / 0 Регистрация: 16.03.2017 Сообщений: 1
		1
	Вывести количество участников, прошедших на городскую олимпиаду 23.03.2017, 19:26. Показов 10253. Ответов 1 Метки нет (Все метки) Уровень A. На вход программы подаются данные о результатах районной олимпиады. В первой строке – количество участников N, а следующие N строк имеют следующий формат: <Фамилия> <Имя> <Баллы> Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> – целое число, обозначающее общее количество баллов, набранное участником. Все данные разделены пробелами. Пример входной строки: Петечкин Вася 152 Чтобы на городскую олимпиаду проходят участники, набравшие в сумме более 100 баллов. Требуется вывести количество участников, прошедших на городскую олимпиаду. 0

	23.03.2017, 21:11

Вывести количество участников, прошедших на городскую олимпиаду

Решение