Форум » Динамическое программирование » тема 23 задача 151 в ответе 229635, у меня 209952 » Ответить
тема 23 задача 151 в ответе 229635, у меня 209952
lem2: var i: integer; a: array [3..25] of integer; begin a[3]:=1; for i:=4 to 9 do begin if i-1>=3 then a[i]:=a[i]+a[i-1]; //+1 if (i mod 2=0) and (i div 2>=3) then a[i]:=a[i]+a[i div 2];// *2 if (i mod 2=0) and (i-1>=3) then a[i]:=a[i]+a[i-1] ; if (i mod 2<>0) and (i-2>=3) then a[i]:=a[i]+a[i-2]; writeln (i, ' ', a[i]) end; for i:=3 to 8 do a[i]:=0; for i:=10 to 17 do begin if i-1>=3 then a[i]:=a[i]+a[i-1]; if (i mod 2=0) and (i div 2>=3) then a[i]:=a[i]+a[i div 2];// *2 if (i mod 2=0) and (i-1>=3) then a[i]:=a[i]+a[i-1] ; if (i mod 2<>0) and (i-2>=3) then a[i]:=a[i]+a[i-2]; writeln (i, ' ', a[i]) end; for i:=3 to 16 do a[i]:=0; for i:=18 to 25 do begin if i-1>=3 then a[i]:=a[i]+a[i-1]; if (i mod 2=0) and (i div 2>=3) then a[i]:=a[i]+a[i div 2];// *2 if (i mod 2=0) and (i-1>=3) then a[i]:=a[i]+a[i-1] ; if (i mod 2<>0) and (i-2>=3) then a[i]:=a[i]+a[i-2]; writeln (i, ' ', a[i]) end; println(a[25]); end.
Ответов - 0
полная версия страницы