// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (q,k):=ReadInteger2('Укажите номера строк q и k:'); Assert((k<>q) and k.Between(1,n) and q.Between(1,n),'Неверная пара (q,k)'); k-=1; q-=1; // перешли к индексам var rk:=a.Row(k); if k<q then begin for var r:=k+1 to q do a.SetRow(r-1,a.Row(r)); a.SetRow(q,rk) end else begin for var r:=k-1 downto q+1 do a.SetRow(r+1,a.Row(r)); a.SetRow(q+1,rk) end; Writeln('*** Результат ***'); a.Println(4) end.
Начинаем решать в лоб.Если взять и пожарить две котлеты с двух сторон,то это займет 2 минуты.Снимаем две пожаренные котлеты и кладем третью. Тогда ее придется жарить еще 2 минуты.Что в итоге дает нам 4 минуты общего времени.Это не совсем правильно поскольку можно пожарить эти котлеты всего за три минуты.
Если подумать логически то у нас есть ресурс-2 сковородки.Они могут жарить одновременно.Если мы начнем с двух котлет,то займем ресурс полностью,однако половина будет простаивать когда будет жариться третья Т.е. для сокращения времени надо задействовать вторую сковородку.То есть: 3*2=6
var x:real;
Begin
readln(x);
x:= sqr(x)*sqr(x)*sqr(x)*x
writeln ('x в седьмой степени равно ', x);
end;