Создать матрицу следующего вида : 0000 0001 0012 - вопрос №89190970000000100120122 от aliina000 05.07.2020 07:37

Question

Информатика: Создать матрицу следующего вида : 0000 0001 0012 0122 в pascalabc.net

aliina000 · Answer

var i,j,k:integer; begin for i:= 1 to 4 do begin  for j:= 1 to 4 do begin  if i 2 then k:=0;  if (i = 2) and(j=4) then k:=1 else  if (i = 3) and(j=1) then k:=0 else  if (i = 3) and(j=3) then k:=1  else  if (i = 3) and(j=4) then k:=2  else  if (i = 4) and(j=1) then k:=0  else  if (i = 4) and(j=2) then k:=1    else  if (i = 4) and(j=3) then k:=2; write (k); end;   writeln; end; end....