Program Olimp4(input);
Uses CRT;
Var x,y:array [1..100] of integer;
a,n,m,i,j,k,max,sum,msum:integer;
Begin
ClrScr;
Assign(input,'input.txt');Reset(input);
randomize;
{Вввод данных из файла}
readln(n);
for i:=1 to n do read(x[i]);
readln;
readln(m);
for j:=1 to m do read(y[j]);
for k:=1 to 10000 do begin
sum:=0; i:=1; j:=1;
{Пока сумма не отрицательна и кучки не закончились}
while (sum>=0) and (i<=n) and (j<=m) do
begin
{Случайное число 0,1}
a:=random(2);
{Если 0, то выбор из первой кучки, если 1, - то из второй}
if (a=0) then begin
{Подсчет суммы}
sum:=sum+x[i];
i:=i+1;
end
else begin
{Подсчет суммы}
sum:=sum+y[j];
j:=j+1;
end;
{Максимальная сумма}
if sum>msum then msum:=sum;
end;
{Закончилась вторая кучка, продолжаем брать из первой}
if i<=n then begin
while i<=n do begin
{Подсчет суммы}
sum:=sum+x[i];
{Если сумма отрицательна, то выход из цикла}
if sum<0 then i:=n+2;
{Максимальная сумма}
if sum>msum then msum:=sum;
inc(i);
end;
ответ:
код c++, но нужен pascal:
1. // меньшиков. тренировка 7.
2. // 7c. игра умножения [multgame]
3. // дп с запоминанием, использующим map. доступ к ответу решенной за o(logn)
4. // ibelyaev: 25nov2010
5. #include
6. #include
7. #include
8.
9. using namespace std;
10.
11. int n;
12. void input()
13. {
14. cin> > n;
15. }
16. map memiswin;
17. // 1 - win
18. // -1 - not win
19. short iswin(long long value)
20. {
21. if (memiswin[value] ! = 0)
22. return memiswin[value];
23. short iscurwin = -1;
24. for (int i=2; i< =9; i++)
25. {
26. if (value * i > = n || iswin(value*i) == -1)
27. {
28. iscurwin = 1;
29. break;
30. }
31. }
32. memiswin[value] = iscurwin;
33. return iscurwin;
34. }
35. void solve()
36. {
37. if (iswin(1) == 1)
38. cout< < "stan wins.";
39. else
40. cout< < "ollie wins.";
41. }
42. int main()
43. {
44. freopen("input.txt","r",stdin);
45. freopen("output.txt","w",stdout);
46.
47. input();
48. solve();
49. return 0;
50. }
объяснение:
не уверен что тебе это подойдет.
у тебя вроде не полностью записано.
ответ:
особое значение в терминологии windows играет понятие файла. что такое файл? файлом (от . file — цепочка) называется последовательный набор данных, хранящийся на каком-либо носителе и имеющий собственные имя и расширение. расширение файла предназначено для однозначной и исчерпывающей идентификации типа файлового объекта; оно записывается справа от имени файла и отделяется от него точкой. в данном случае тип файлового объекта — это функциональная характеристика файла, с которой операционная система определяет набор программ, способных обрабатывать или использовать данный файл. если мы рассмотрим в качестве примера некий абстрактный файл readme.txt, то здесь именем файла является строка readme, а его расширением — .тхт, которое указывает на то, что данный файловый объект относится к типу «текстовый файл» и может быть обработан с использованием какого-либо текстового редактора, например стандартной программы блокнот из комплекта поставки windows.
Program Olimp4(input);
Uses CRT;
Var x,y:array [1..100] of integer;
a,n,m,i,j,k,max,sum,msum:integer;
Begin
ClrScr;
Assign(input,'input.txt');Reset(input);
randomize;
{Вввод данных из файла}
readln(n);
for i:=1 to n do read(x[i]);
readln;
readln(m);
for j:=1 to m do read(y[j]);
for k:=1 to 10000 do begin
sum:=0; i:=1; j:=1;
{Пока сумма не отрицательна и кучки не закончились}
while (sum>=0) and (i<=n) and (j<=m) do
begin
{Случайное число 0,1}
a:=random(2);
{Если 0, то выбор из первой кучки, если 1, - то из второй}
if (a=0) then begin
{Подсчет суммы}
sum:=sum+x[i];
i:=i+1;
end
else begin
{Подсчет суммы}
sum:=sum+y[j];
j:=j+1;
end;
{Максимальная сумма}
if sum>msum then msum:=sum;
end;
{Закончилась вторая кучка, продолжаем брать из первой}
if i<=n then begin
while i<=n do begin
{Подсчет суммы}
sum:=sum+x[i];
{Если сумма отрицательна, то выход из цикла}
if sum<0 then i:=n+2;
{Максимальная сумма}
if sum>msum then msum:=sum;
inc(i);
end;