Question

СРОЧНО, ПОЖАЙЛУСТА (в паскале надо сделать)«Карусель»Карусель – одна из популярных форм проведения командных соревнований по решению задач.Всем командам, участвующим в карусели, предлагаются в строгом порядке одни и те же задачи, которые необходимо решить в установленное время. Система подсчета баллов такова, что доминирующим фактором является не количество решенных задач, а длины последовательностей правильных решений.Начисление баллов происходит согласно следующей схеме:первая задача стоит 3 балла;если к задаче дан верный ответ, то команда получает ее стоимость, а следующая задача будет стоить на 1 балл больше;если на задачу дан неверный ответ, то команда получает за решение 0 баллов, а следующая задача будет стоить на 3 балла меньше, но не менее 3 баллов.Вам требуется написать программу, которая по результатам ответов команды определит итоговый балл.Первая строка входных данных содержит натуральное число N – количество задач в карусели (N ≤ 105). Во второй строке расположены N цифр 0 или 1, разделенные пробелом; i-я цифра соответствует корректности ответа команды на i-ю задачу (0 – неверный ответ, 1 – верный ответ).

Answer 1

program raf105;

var

 s,s2: string;

 i,j,n,price,points: integer;

begin

write('Количество задач в карусели: ');

readln(n);

write('Ответы команды: ');

readln(s);

for i:=1 to length(s) do

 if s[i]<>' '

   then s2:= s2 + s[i];

price:= 3;

for i:=1 to length(s2) do

begin

 if s2[i]='1'

   then begin

     points:= points + price;

     price:= price + 1;

   end

   else for j:=1 to 3 do

     if price > 3

       then price:= price-1;

end;

writeln('Итоговый балл: ',points);

end.

PascalABC 3.4.2

Answer 2

Для решения этой задачи на Паскале, вы можете использовать следующий код. Ниже представлена программа, которая считывает данные о результатах ответов команды и вычисляет итоговый балл:

pascalCopy code
program Karusel;

var
  N, i, score, prevScore, correctAnswer: Integer;
  answers: array of Integer;

begin
  // Ввод количества задач в карусели
  Write('Введите количество задач в карусели: ');
  Readln(N);
  
  // Инициализация массива ответов
  SetLength(answers, N);
  
  // Ввод результатов ответов команды
  Write('Введите результаты ответов команды (0 - неверный ответ, 1 - верный ответ): ');
  for i := 0 to N - 1 do
  begin
    Read(answers[i]);
  end;
  
  // Вычисление итогового балла
  score := 0;
  prevScore := 3; // начальная стоимость первой задачи
  
  for i := 0 to N - 1 do
  begin
    correctAnswer := answers[i];
    if correctAnswer = 1 then
    begin
      score := score + prevScore;
      Inc(prevScore); // следующая задача будет стоить на 1 балл больше
    end
    else
    begin
      score := score + 0;
      Dec(prevScore, 3); // следующая задача будет стоить на 3 балла меньше, но не менее 3 баллов
      if prevScore < 3 then
        prevScore := 3;
    end;
  end;
  
  // Вывод итогового балла
  Writeln('Итоговый балл команды: ', score);
end.

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