Function get_random(min,max:integer;n,x:boolean):integer;
begin
if n then min:=min+1;
if x then max:=max-1;
get_random := random(min,max);
end;
вызов фунциии:
[0;15),
get_random(0,15,false,true);
[0;15],
get_random(0,15,false,false);
[-15;15],
get_random(-15,15,false,false);
[10;15)
get_random(10,15,false,true);
1.
8 Кбайт= 8*8*1024=65536
22 байта= 22*8=176
2.
15 Кбайт= 15*1024=15360
156 Мбайт= 156*1024*1024=163577856
3.
7168 байт= 7168:1024= 7
2 Мбайта= 2*1024=2048
5 Гбайт= 5*1024*1024=5242880
4. какова кодировка всего алфавита?
5. не знаю
6.
1) 101010
2) 110000
Var n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
<span>end.</span>
program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.
Нц
пока справа свободно - закрасить вправо
кц
нц
пока снизу свободно - закрасить <span>вниз
</span>кц
нц
пока слева свободно - закрасить <span>влево
</span><span>кц
</span>нц
пока сверху свободно - закрасить <span>вверх
</span><span>кц
</span>стоп.