Жалпы сұрақ сұрақ қойды | 57 қаралды
57 қаралды
бүтін k(n,n) массивін шахматтық тәртіппен 0  және 1-лермен толықтырынңыз
«Baribar.kz-тің» Telegram-каналына жазыламыз!

2 жауап

жауап берді
Uses  crt;
Const m=100;
Var   a:array[1..m,1..m] of integer;
      i,j,n:integer;
Begin clrscr;
      Write('n='); Read(n);
      for i:=1 to n do
          for j:=1 to n do
              if (i+j) mod 2=0 then a[i,j]:=0 else a[i,j]:=1;
      for i:=1 to n do begin
          for j:=1 to n do
              Write(' ',a[i,j],' ');
          WriteLn; WriteLn; end;
      ReadLn; ReadLn;
End.
жауап берді

Uses     crt;
Const   m=8;
Var        a:array[1..m,1..m] of integer;
               i,j:integer;
Begin   clrscr;
              for i:=1 to m do
                   for j:=1 to m do
                         if (i+j) mod 2=0 then a[i,j]:=0 else a[i,j]:=1;
              for i:=1 to m do begin
                   for j:=1 to m do
                        Write(' ',a[i,j],' ');
              WriteLn; WriteLn; end;
              ReadLn;
End.

Сіздің жауабыңыз

Есіміңіз:
Құпиялық: Email поштаңыз тек сізге хабарлама жіберу үшін ғана қолданылады
Спамға қарсы тексеру:
Он бірге бесті қосыңыз?
Модерациядан өтпес үшін сайтқа кіріңіз немесе тіркеліңіз
Азаттық жаңалықтары
117,171 сұрақ
299,184 жауап
153,131 пікір
63,654 қолданушы