И = 00 Д=01 Т=10 О=11 Х=100
Т И Х О Х О Д
10 00 100 11 100 11 01 =1000 1001 1100 1101 =89СD (16cc)
Цветов 1024 , 2в степени 10 это 1024
Program z1;
var y:integer;
x:byte;
begin
x:=4;
while x<=12 do begin
y:=x*x-2+3*x;
writeln('x=',x,' ','y=',y);
x:=x+4
end;
readln
<span>end.</span>
Program gt;
var a,s,i,N:longint;
begin
readln(N);
s:=0;
RANDOMIZE;
for i:=1 to N do
begin
a:=random(500)-250;
if(a>5)and(a<100)then s:=s+a;
end;
writeln(s);
end.
Var
a,d,i:integer;
begin
readln(a,d);
for i:=1 to 8 do
begin
writeln('in ',i,' hour = ',a);
a:=a+d;
end;
end;