Найди значение выражения.

1∨1∨1∨1

A
4
нет верного ответа
1

За каждую итерацию цикла n возрастает на 8. Нам нужно минимум 125 итераций, чтоб получить n > 1000, потому что 4 + 8*125 > 1000, а 4 + 8*124 < 1000. Можно и больше 125 итераций, об этом дальше

За каждую итерацию цикла s растёт на 5, пока не превысит 400. Нам нужно как минимум 125 итераций, как мы выяснили, а для этого стартовое значение s должно быть больше чем

400 - 5*125 = 400 - 625 = -225,

но больше или равно

400 - 5*124 = 400 - 620 = -220.

Ну и на отрезке (-225; -220] максимум найти несложно.

Если число итераций N будет больше 125, то больше будет разница 400 - 5*N , а значит меньше будет стартовое значение S, что нас не устраивает.

ответ: -220

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var fn:='MtFile.bin';
  var n:=ReadInteger;
  var f:file of integer;
  var s:=SeqRandom(n,-3000,8000); // последовательность не хранится
  Rewrite(f,fn);
  foreach var m in s do Write(f,m);
  f.Close; // файл создан и закрыт
  Reset(f,fn);
  var b:integer; // буфер
  while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
  Seek(f,0); // стали в начало файла
  Read(f,b);
  var iOdd:=0;
  while not Eof(f) and b.IsEven do
  begin Read(f,b); iOdd+=1 end;
  if Eof(f) and b.IsEven then
    begin Writeln('Нет нечетных компонентов'); exit end;
  var (bb,iEven):=(b,n);
  repeat
    iEven-=1; Seek(f,iEven); Read(f,b)
  until (iEven=1) or b.IsEven;
  if b.IsOdd then begin Writeln('Нет четных компонентов'); exit end;
  Seek(f,iEven); Write(f,bb);
  Seek(f,iOdd); Write(f,b);
  Seek(f,0);
  while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
  f.Close
end.

Пример
10
3166 6355 3596 6926 1266 6143 7401 7624 1402 -627
3166 1402 3596 6926 1266 6143 7401 7624 6355 -627