pahan250
17.02.2022 06:14

На городской олимпиаде по информатике участникам было предложено выполнить 3 , каждое из которых оценивалось по 25- шкале. известно, что общее количество участников первого тура олимпиады не превосходит 250 человек. на вход программы сведения о результатах олимпиады. в первой строке вводится количество участников n. далее следуют n строк, имеющих следующий формат:

здесь – строка, состоящая не более чем из 20 символов; – строка, состоящая не более чем из 15 символов; – строка, содержащая три целых числа, разделенных пробелом, соответствующих , полученным участником за каждое первого тура. при этом и , и разделены одним пробелом. примеры входных строк:
петрова ольга 25 18 16
калиниченко иван 14 19 15
напишите программу, которая будет выводить на экран фамилию и имя участника, набравшего максимальное количество . если среди остальных участников есть ученики, набравшие такое же количество , то их фамилии и имена также следует вывести. при этом имена и фамилии нужно выводить в алфавитном порядке.
язык программирования pascal

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Arinka26052005
29.07.2020 15:25
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp  новым значением.
 
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
  k:=kp+i-1;
  kp:=k;
  writeln(k:5, k*k:6, k*k*k:8);
  end;
end.
0,0(0 оценок)
Ответ:
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp  новым значением.
 
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
  k:=kp+i-1;
  kp:=k;
  writeln(k:5, k*k:6, k*k*k:8);
  end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота