Uses crt;
var
a:array [1..255] of byte;
i,n,j:integer;
begin
for i:=1 to 255 do
begin
a[i]:=random(100);
write(a[i]," ");
end;
write("сколько чисел складывать:");
read(n);
for i:=1 to n do
begin
j:=J+a[i];
end;
writeln(j);
readln;
end.
18 в шестнадцатиричной это 8x1+16x1= 24. 1110 в двоичной это 0х1+1х2+1х4+1х8= 14 человек. 24-14=10. Ответ:10 мальчиков
<span>x:=1;</span>
<span>y:=5;</span>
<span>x:=2*x;</span>
<span>y:=y-1;</span>
<span>если дан такой алгоритм, то все действия идут последовательно. Можно просто сократить код, получется что действия происходят в один и тот же момент.</span>
x:=2*1;
y:=5-1;