Визначте, який оператор реалізує дію:Збільшувати значення змінної А на 2 доти, доки А<20 *

Repeat A := A+2 Untіl A >= 20;
Repeat A := A+2 Untіl A<20;
If A < 20 Then A := A+2;
Whіle A<20 do A := A+2;

Объяснение:

1) 81/2=40 (остаток 1)

40/2=20 (0)

20/2=10 (0)

10/2=5 (0)

5/2=2 (1)

2/2=1 (0)

1/2=0 (1)

81₁₀=1010001₂

2) 653/2=326 (1)

326/2=163 (0)

163/2=81 (1)

81/2=40 (1)

40/2=20 (0)

20/2=10 (0)

10/2=5 (0)

5/2=2 (1)

2/2=1 (0)

1/2=0 (1)

653₁₀=1010001101₂

3) 1001010₂=1·2⁶+0·2⁵+0·2⁴+1·2³+0·2²+1·2¹+0·2⁰=64+8+2=74₁₀

4) 1001000101₂=1·2⁹+0·2⁸+0·2⁷+1·2⁶+0·2⁵+0·2⁴+0·2³+1·2²+0·2¹+1·2⁰=512+64+4+1=581₁₀

1) 44/8=5 (4)

5/8=0 (5)

44₁₀=54₈

2) 804/8=100 (4)

100/8=12 (4)

12/8=1 (4)

1/8=0 (1)

804₁₀=1444₈

3) 17₈=1·8¹+7·8⁰=8+7=15₁₀

4) 1432₈=1·8³+4·8²+3·8¹+2·8⁰=512+256+24+2=794₁₀

1) 91/16=5 (11=B)

5/16=0 (5)

91₁₀=5B₁₆

2) 946/16=59 (2)

59/16=3 (11=B)

3/16=0 (3)

946₁₀=3B2₁₆

3) 21₁₆=2·16¹+1·16⁰=32+1=33₁₆

4) 34F₁₆=3·16²+4·16¹+15·16⁰=768+64+15=847₁₀

Const CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas1=array[1..CSize1,1..CSize1] of integer;
     TMas2=array[1..Csize2, 1..CSize2] of integer;
     TMas3=array[1..Csize3, 1..CSize3] of integer;

var A1:TMas1;
    A2:TMas2;
    A3:TMas3;
    i,j,x, y:byte;

function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;

function interval(i:integer):boolean;
begin
interval:=false;
if (i<=12) and (i>=1) then interval:=true;
end;

begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
 begin
 for j:=1 to CSize1 do
  begin
  A1[i, j]:=random(50);
  write(A1[i, j]:3);
  if zero(A1[i, j]) then inc(x);
  if interval(A1[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
 begin
 for j:=1 to CSize2 do
  begin
  A2[i, j]:=random(50);
  write(A2[i,j]:3);
  if zero(A1[i,j]) then inc(x);
  if interval(A2[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
 begin
 for j:=1 to CSize3 do
  begin
  A3[i, j]:=random(50);
  write(A3[i,j]:3);
  if zero(A3[i,j]) then inc(x);
  if interval(A3[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.