Ответы 1

  • // PascalABC.NET 3.1, сборка 1219 от 16.04.2016begin  var a:array[1..6,1..6] of integer;  for var i:=1 to 6 do begin    for var j:=1 to 6 do begin      a[i,j]:=10*i+j;      Write(a[i,j],' ')      end;    Writeln    endend.Результат:11 12 13 14 15 16 21 22 23 24 25 26 31 32 33 34 35 36 41 42 43 44 45 46 51 52 53 54 55 56 61 62 63 64 65 66
    • Автор:

      daniel73
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years