Форум: «ЕГЭ по информатике»

На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

var s,n:integer;
function f(n:integer):integer;
begin
if n<=3 then begin F:=n;exit;
end;
if (n>3) and (N mod 2= 0) THEN begin F:=N+F(N-1);exit;
end;
IF (n>3) and ( N mod 2 <>0) then begin f:= n*n+ f(n-2);exit;
end;
end;
begin
repeat
n:=n+1;
s:=f(n);
until s<100000000;
writeln(n)

end.

var
s, n: integer;

function f(n: integer): integer;
begin
if n <= 3 then f := n;
if (n > 3) and (N mod 2 = 0) then f := N + F(N - 1);
if (n > 3) and (N mod 2 <> 0) then f := n * n + f(n - 2);
end;

begin
n := 1;
repeat
n := n + 1;
s := f(n);
until s > 100000000;
writeln(n-1);
end.

var n,s:integer;
function f(n:integer):integer;
begin
if n<=1 then f:=n*n;
if n>1 then f:=(n*n)+(2*n+1)+f(n div 3)+f(n-2);
end;
begin
n:=1;
repeat
n:=n+1;
s:=f(n);
until s>3200000 ;
writeln(n,' ',s);
end.