1.
Var m : array[1..9] of Real;
i : Integer;
Begin
For i:=1 to 9 do Readln(m[i]);
For i:=9 downto 1 do Write(m[i],' ');
Writeln;
end.
2.
Var m : array[1..20] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to 20 do
Begin
m[i]:=-9+Random(29);
If m[i]<0 then m[i]:=-m[i];
end;
For i:=1 to 20 do Write(m[i],' ');
Writeln;
end.
Var a,b: integer;
begin
readln (a,b);
if (a mod 2 = 0) then writeln ('Число ',a, ' чётное.') else writeln ('Число ',a, ' нечётное.');
if (b mod 2 = 0) then writeln ('Число ',b, ' чётное.') else writeln ('Число ',b, ' нечётное.');
<span>end.</span>
A = 100 1001 = 2^6+2³ +1= 64+8+1 = 73 (10c/c)
B = 100 1100 = 2^6+2³+2² =64+8+4= 76 (10c/c)
73 < 75 < 76
Ответ: 2)
При перемещении формулы =A$6+$D8 из ячейки C4 в ячейку E1 она трансформируется в формулу =C$6+$D5