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

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

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

 var i,x,p,l,k: integer; 
 function f(n: integer):integer; 
 begin 
   if  n<= 18 then F:=n+3; 
 if (n>18) and ( n mod 3 =0) then F:=(n div 3)*F(n div 3) + n-12; 
 if (n>18) and ( n mod 3 <>0) then F:=F(n-1)+n*n+5; 
 end; 
 begin 
 for i:=1 to 1800 do 
 begin 
   x:=f(i); 
   k:=0; 
   p:=0; 
   while x>0 do 
   begin 
     p:= x mod 10; 
     x:= x div 10; 
     if (p mod 2<>0) then k:=K+1; 
     end; 
     if k=0 then 
       end; 
   writeln(f(i)); 
   
 end.

Создай свой форум на сервисе Borda.ru
Форум находится на 2 месте в рейтинге
Текстовая версия