neponyatkiii
19.03.2023 06:35

Язык pithon
игра в числа ведётся на одномерном массиве целых положительных чисел. перед началом, жеребьёвкой определяется, кто будет ходить первым (первый игрок), а кто – вторым (второй игрок). процесс игры состоит в том, что игроки по очереди (сначала первый игрок, затем второй, следом опять первый и так далее) вычёркивают числа из массива. вычеркнуть можно только число, находящееся в конце или начале оставшегося массива. при этом всегда вычёркивается максимальное число из этих двух. если первое и последнее числа массива равны, то вычёркивается первое. игра продолжается до того момента, пока не будут вычеркнуты все числа. каждое вычеркнутое число идёт в актив тому игроку, который его вычеркнул. после окончания игры каждый игрок суммирует вычеркнутые им числа. победителем объявляется тот, кто наберет больше очков. некоторые игроки поняли, что результат не зависит от стратегии игры, и решили попросить вас написать программу для получения результата. входные данные
в первой строке находится одно целое число n – количество чисел в массиве (1 ≤ n ≤ 104). во второй строке находятся n целых положительных чисел из диапазона [1, 32000], разделённых пробелом.
выходные данные
выведите два числа, разделенные двоеточием. первое число – количество очков, набираемых первым игроком при игре на этом массиве, второе число – для второго.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Cachu
19.11.2020 10:52
Var a1,a2,a3,a4,a5,a6,a7,a8,k:integer;
begin
k:=0;
read (a1,a2,a3,a4,a5,a6,a7,a8);
if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then
begin
if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1;
if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1;
if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1;
if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1;
if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1;
if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1;
if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1;
if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1;
writeln (k);
end else
writeln ('Неверный ввод');
end.
0,0(0 оценок)
Ответ:
tastapva
25.01.2022 11:24
//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота