Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(50,1,999);
a.Take(40).Println;
a.Skip(40).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
164 67 626 431 758 259 924 741 796 179 989 880 813 112 832 970 662 970 558 5 833 343 694 379 297 192 565 147 611 302 284 925 784 98 61 895 907 190 208 679
55
195
206
597
664
762
201
452
965
298
1,25Кбайт=1280байт
1280/120 байт/с - скорость передачи
250/(1280/120)= 23,4375с - время передачи 250 байт информации
Берет козу и едет на др берег
Возвращается
Берет волка едет на другой берег
На другом берегу оставляет волка забирает козу
Едет на другой берег оставляет козу берет капусту
Едет на другой берег оставляет капусту
Возвращается
Забирает козу и едет на др берег
Т.к мы работаем в 8 разрядности, смотрим чтобы в двоичном числе было 8 элеентов, если их меньше то добавляем нули впереди(слева)
1)
Для получения обратного кода просто меняем 1 на 0, а 0 на 1
<span>00100110=11011001
</span>2)
Для получение дополнительного кода сначала находим обратный код
<span>00100101=11011010
</span>Затем к обратному коду прибавляем 1
11011010+1=11011011