Дан массив N*M в нем I количество единиц распологаемых каждый раз пользователем
(I-каждый раз разное) остальные нули найти наи больший квадрат и з нулей.

Дан масив 3*3 заполненый нулями и иденицами найти все возможные варианты его заполнения чтобы вне м не встречали сь квадраты 2*2 не 1 не 0

1+2+3=1*2*3 Найти все подобные последовательности

Дан набор кубиков и слово вые снить возможно ли даным набором кубиков е го составить
(кубики детские с буквами)

нужно надуть K воздушных шариков для этого есть i человек и звестно что каждому после того как он надует T шариков нужно отдохнуть y минут за сколько будут надуты все шарикию

В чем решать?

Цитата

1+2+3=1*2*3 Найти все подобные последовательности

Код

var s,s1:string; i,o:integer; sum:int65; pr:int64; begin s:=''; sum:=0; pr:=1; for i:=1 to MaxInt do  begin   inc(sum,i);   pr:=pr*i;   s:=s + IntToStr(i) + '+';   if pr = sum    then     begin      Delete(s,Length(s),1);      write(s);      write('=');      s1:='';      for o:=1 to Length(s) do       if s[i] = '+'        then         s1:=s1 + '*'        else         s1:=s1 + s[i];      write(s1);      s:=s + '+';     end;  end; end.

Код представлен на Delphi.

Pakshin A. S. а не затруднит ли тебя написать поеснения а тоя с Delphi почти не знаком,
(конечно паскалевские аператоры я понимаю но есть много не понятного) а ещё лучьше тотже самый код на Pascale.

Guest, что именно непонятно? Здесь нет элементов делфи. Можешь прекинуть этот код в паскаль, подключив математический модуль.

Код

program Project2; {$APPTYPE CONSOLE} type TMatrix = array [1..3,1..3] of integer; procedure InitMatrix(var Matrix: TMatrix); var i,j:integer; begin for i:=1 to 3 do  for j:=1 to 3 do   Matrix[i,j]:=-1 end; procedure ShowMatrix(Matrix: TMatrix); var i,j:integer; begin writeln; for i:=1 to 3 do  begin   for j:=1 to 3 do    write(Matrix[i,j]:4);   writeln  end end; function IsKvadrat(posi,posj:integer; Matrix:TMatrix):boolean; begin Result:=False; if (posi > 1) and (posj > 1)  then   Result:=(Matrix[posi,posj] = Matrix[posi-1,posj-1]) and (Matrix[posi-1,posj] = Matrix[posi, posj-1]) and (Matrix[posi,posj] = Matrix[posi-1,posj]) end; procedure FindMatrixs(posi,posj:integer;var Matrix: TMatrix); var m:TMatrix; begin m:=Matrix; if posj = 4  then   ShowMatrix(m)  else   begin    m[posi,posj]:=0;    if not IsKvadrat(posi,posj, m)     then      if posi <> 3       then        FindMatrixs(posi+1, posj, m)       else        FindMatrixs(1, posj+1, m);    m[posi,posj]:=1;    if not IsKvadrat(posi,posj, m)     then      if posi <> 3       then        FindMatrixs(posi+1, posj, m)       else        FindMatrixs(1, posj+1, m)   end end; var Matrix: TMatrix; begin InitMatrix(Matrix); FindMatrixs(1,1,Matrix); readln end.

Цитата

Дан масив 3*3 заполненый нулями и иденицами найти все возможные варианты его заполнения чтобы вне м не встречали сь квадраты 2*2 не 1 не 0