Задача(Паскаль)как делается?

@VirtualX · Регистрация: 11.11.2013

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

Дано набор карточек , на каждой записано некоторое целое число. Два игрока по очереди берут карточки подряд , от первой до последней слева направо . Первый игрок , вытянув карточку , умножает число на ней на 2 и записывает себе на листочек . Второй игрок , взяв следующую карточку , умножает число на ней 3 , и тоже записывает себе на листочек . Затем первый снова берет карточку , число умножает 4 , и тоже записывает на листочек , дальше второй снова берет карточку , число умножает на 5 и записывает себе . И так пока карточки не закончились.
Побеждает тот , у кого сумма записанных чисел будет больше.
Технические условия. Программа Msum читает с устройства стандартного ввода (клавиатуры ) число N ( 1 ≤ N ≤ 100 ) - количество карточек , а дальше в той же строке - N целых чисел ( a1 , a2 , a3 , ... , aN ) , записанные на карточках . Каждое из них по модулю на превышает 1000000.
Программа выводит на устройство стандартного вывода (экран) число 1 , если победил 1 -й игрок , и через пробел - набранную им сумму , или число 2 , если победил второй и тоже через пробел набранную сумму. Если победителя выявить невозможно , программа выводит число -1 и сумму любого из игроков
Пример
введение
вывод
Помощь
4 1 2 3 апреля
26 февраля
Первый игрок 1 * 2 3 * 4 = 14
Второй игрок 2 * 3 + 4 * 5 = 26
Победил 2 -й игрок .
3 1 1 1
1 июня
Первый игрок 1 * 2 1 * 4 = 6
Второй игрок 1 * 3 = 3
Победил 1 -й игрок ..
2 3 Февраль
-1 6
Первый игрок 3 * 2 = 6
Второй игрок 2 * 3 = 6
Победителя не обнаружено

Плиззз

@newyork7776 · 12.11.2013, 11:50

я не знаю правельно или нет

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program VirtualX;
uses crt;
var i,n,s1,s2:integer;
    mas:array[1..100] of integer;
BEGIN
s1:=0;s2:=0;
  Write('Enter number N = ');readln(n);
  for i:=1 to n do
    begin
      read(mas[i]);
    end;
  for i:=2 to n+1 do
    begin
      s1:=s1+(mas[i-1]*i);
      s2:=s2+(mas[i]*i);
    end;
    if (s1>s2) then Writeln('Winner [',s1,'] = 1')
    else Writeln('Winner [',s2,'] = 2');
END.

@Cyborg Drone · 12.11.2013, 22:53

Массив здесь не требуется. Если точно по заданию, то вот так:

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program game;
 
var i, n, k, s1, s2: integer;
 
begin
  s1 := 0;
  s2 := 0;
  read(n);
  for i := 1 to n do
    begin
      read(k);
      if odd(i)
        then s1 := s1 + k * (i + 1)
        else s2 := s2 + k * (i + 1);
    end;
  readln;
  if s1 = s2
    then writeln(-1, ' ', s1)
    else if s1 > s2
      then writeln(1, ' ', s1)
      else writeln(2, ' ', s2);
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@VirtualX 0 / 0 / 0 Регистрация: 11.11.2013 Сообщений: 5

	Задача(Паскаль)как делается? 11.11.2013, 18:56. Показов 1090. Ответов 2 Метки нет (Все метки) Дано набор карточек , на каждой записано некоторое целое число. Два игрока по очереди берут карточки подряд , от первой до последней слева направо . Первый игрок , вытянув карточку , умножает число на ней на 2 и записывает себе на листочек . Второй игрок , взяв следующую карточку , умножает число на ней 3 , и тоже записывает себе на листочек . Затем первый снова берет карточку , число умножает 4 , и тоже записывает на листочек , дальше второй снова берет карточку , число умножает на 5 и записывает себе . И так пока карточки не закончились. Побеждает тот , у кого сумма записанных чисел будет больше. Технические условия. Программа Msum читает с устройства стандартного ввода (клавиатуры ) число N ( 1 ≤ N ≤ 100 ) - количество карточек , а дальше в той же строке - N целых чисел ( a1 , a2 , a3 , ... , aN ) , записанные на карточках . Каждое из них по модулю на превышает 1000000. Программа выводит на устройство стандартного вывода (экран) число 1 , если победил 1 -й игрок , и через пробел - набранную им сумму , или число 2 , если победил второй и тоже через пробел набранную сумму. Если победителя выявить невозможно , программа выводит число -1 и сумму любого из игроков Пример введение вывод Помощь 4 1 2 3 апреля 26 февраля Первый игрок 1 * 2 3 * 4 = 14 Второй игрок 2 * 3 + 4 * 5 = 26 Победил 2 -й игрок . 3 1 1 1 1 июня Первый игрок 1 * 2 1 * 4 = 6 Второй игрок 1 * 3 = 3 Победил 1 -й игрок .. 2 3 Февраль -1 6 Первый игрок 3 * 2 = 6 Второй игрок 2 * 3 = 6 Победителя не обнаружено Плиззз 0

Задача(Паскаль)как делается?

Решение