D = C = 4;
C = B = 6;
B = A = 3;
переменная А значение не меняла.
Ответ: А = 3, В = 3, С = 6, D = 4.
Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
1.<span>Три базовых цвета- Red, Green, Blue. На каждый по два бита - получается по 4 бита градации на цвет. того 4*4*4= всего 64</span>
Все три объединил в одну. Смотри в приложении.