Предмет: Информатика,
автор: arakstorosyan
создать матрицу следующего вида :
0000
0001
0012
0122
В PascalABC.NET
Ответы
Автор ответа:
2
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.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Warrior888
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: pzk
Предмет: Алгебра,
автор: alcatraz441