Данная область показана на скриншоте:
Uses crt;
var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15)-5;
if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.
54 - <span>110101 110100
357 - </span>110011 110101 110111<span>
862 - </span>111000 110110 110010<span>
1376 - </span>110001 110011 110111 110110<span>
3728 - </span><span>110011 110111 110010 111000</span>
1.б
2.г
3.д
4.б
5.б
6.б
7.г
8.а
9.г
10.в
11.д
12.б
13.4бит
14.8
15.5120байт
16777216
1572864
1557
55.06
16.8
17.г