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

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

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

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

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

// Автор: Зубов Н.С.
function F( n: integer ): integer;
begin
if n < 4 then
Result := n-1;
if (n > 3) and (n mod 3=0) then
Result :=n+ 2*F(n-1)
else
Result :=F(n-2)+F(n-3)
end;
begin
writeln( F(25) );
end.

var s,ss:integer;
function F( n: integer ): integer;
begin
if n < 4 then begin
Result := n-1;
Exit;
end;
if (n > 3) and (n mod 3=0) then
Result :=n+ 2*F(n-1)
else
Result :=F(n-2)+F(n-3)
end;
begin
s := F(25);
while s>0 do begin
ss := ss+s mod 10;
s := s div 10;
end;
writeln( 'summa = ',ss );
end.

function F( n: integer ): integer;
begin
if n < 4 then
Result := n-1
else if n mod 3 = 0 then
Result := n + 2*F(n-1)
else
Result := F(n-2) + F(n-3)
end;
begin
writeln( F(25).ToString.Select(x->StrToInt(x)).Sum );
end.