Каймараз К Каймараз Регистрация 12 Фев 2013 Сообщения 98 Репутация 0 Спасибо 0 Монет 0 1 Мар 2017 #1 var a:array[1..4,1..5] of byte; i,j,k:byte; begin k:=0; for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=i+j-1+k; write(a[i,j],) end; inc(k); writeln end end.
var a:array[1..4,1..5] of byte; i,j,k:byte; begin k:=0; for i:=1 to 4 do begin for j:=1 to 5 do begin a[i,j]:=i+j-1+k; write(a[i,j],) end; inc(k); writeln end end.
janjika J janjika Регистрация 29 Июн 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 1 Мар 2017 #2 примерно так j:=3; while j<8 do begin for i:=0 to 4 do write(j+i,); writeln; j:=j+2; end; Позитивный голос 0
настя Н настя Регистрация 13 Янв 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 1 Мар 2017 #3 Turbo Pascal 7.0 uses crt; var i, j: integer; begin clrscr; for i:= 0 to 3 do begin for j:=1 to 5 do write (j+i*2:4); writeln; end; readln; end. Позитивный голос 0
Turbo Pascal 7.0 uses crt; var i, j: integer; begin clrscr; for i:= 0 to 3 do begin for j:=1 to 5 do write (j+i*2:4); writeln; end; readln; end.