+3 дауыс
54 қаралды
бүтін k(n,n) массивін шахматтық тәртіппен 0  және 1-лермен толықтырынңыз
Жалпы сұрақ сұрақ қойды | 54 қаралды

2 жауап

+1 дауыс
Жақсы Жауап
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.
Оқушы жауап берді
+1 дауыс

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 поштаңыз тек сізге хабарлама жіберу үшін ғана қолданылады
Спамға қарсы тексеру:
Он бірге бесті қосыңыз?
Модерациядан өтпес үшін сайтқа кіріңіз немесе тіркеліңіз

Ұқсас сұрақтар

Сұрақ қою
115,317 сұрақ
291,754 жауап
152,574 пікір
58,384 қолданушы