Необходимо отсчитать 5 раз по 3 минуты = 15 минут, одновременно переворачивать 2 раза по 8 минут. когда 15 минут пройдут, в больших часах остается 1 минута, она заканчивается и переворачиваете часы с 3 минутами 2 раза и того получится 1+3+3=7 минут. задача решена
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
var p:=Biginteger(1);
for var i:=1 to n do begin p*=i; s+=p end;
Print(s)
end.
Тестовые решения
n= 5
153
n= 10
4037913
n= 50
31035053229546199656252032972759319953190362094566672920420940313
Program abc;var<span> i, j: byte;</span><span> arr1, arr2: array [1..5] of array [1..5] of integer;</span><span> arr: array[1..25] of integer;</span>begin<span> for i := 1 to 25 do</span><span> begin</span><span> arr[i] := i;</span><span> end;</span><span> writeln('array1:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr1[i][j] := arr[(i - 1) * 5 + j];</span><span> write(' ', arr1[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span> writeln('array2:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr2[i][j] := arr1[j][i];</span><span> write(' ', arr2[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span>end.</span>