сделать матрицу последующего вида :  0000

Сделать матрицу последующего вида :
0000
0001
0012
0122
В PascalABC.NET

Задать свой вопрос
1 ответ
 var i,j,k:integer; begin for i:= 1 to 4 do begin  for j:= 1 to 4 do begin  if i lt; 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт