Пингвин - линукс, значит, Руслан с этой познакомился ОС.
Никита тогда с виндоусом, а Саша с мэкOS
Просто если следовать алгоритму то 10 чисел
n=1
k=1 ⇒ A[1,1]=1
k=2 ⇒ <span>A[1,2]=1
</span>k=3 ⇒ <span>A[1,3]=1
</span>k=4 ⇒ <span>A[1,4]=1
n=2
</span>k=2 ⇒ <span>A[2,2]=1
</span>k=3 ⇒ <span>A[2,3]=1
</span>k=4 ⇒ <span>A[2,4]=1
n=3
</span>k=3 ⇒ <span>A[3,3]=1
</span>k=4 ⇒ <span>A[3,4]=1
n=4
</span>k=4 ⇒ <span>A[4,4]=1</span>
<em>Странное задание, но ответ 0,0023746490478516!</em>
1. Вот так для чего-то решают в школе...
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
var
i,j,s:integer;
begin
// задание 1
s:=0;
for i:=1 to 10 do s:=s+i*i;
Writeln(s);
// задание 2
j:=0;
for i:=1 to 50 do
if i mod 2=0 then j:=j+1;
Writeln(j)
end.
<u>Результат</u>
385
25
А вот так можно это решить по-нормальному за минуту.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(1.To(10).Select(i->i*i).Sum); // задание 1
Writeln(Range(2,50,2).Count) // задание 2
end.
<u>Результат</u>
385
25
F(4) = F(3) * (3 * 4 - 2) = F(3) * 10 (подставляем) = 28 * 10 = 280
F(3) = F(2) * (3 * 3 - 2) = F(2) * 7 (подставляем) = 4 * 7 = 28
F(2) = F(1) * (3 * 2 - 2) = 1 * 4 = 4
Когда нашли F(2) подставляем его в F(3)
Когда нашли F(3) подставляем его в F(4)
Ответ: 280