Мне не совсем понятна формулировка вопроса: если там имеется в виду, что Красный и Зеленый стоит на максимуме, а Синий на минимуме, то будет Желтый. То есть в реальности это надо было бы записать как RGB (255,255,0)
А если там действительно RGB (1,1,0) как сказано в задачке, то оно даже из черного не вылезет :) Но, скорее всего, просто запись цвета в задачке нестандартной манере сделана.
Может это поможет:
Program TemperatureInDecember;
Uses crt;
Var tempDecember : array[1..31] of integer;
i, countPlus, countZero, countMinus : integer;
begin
Clrscr;
countPlus := 0;
countZero := 0;
countMinus := 0;
for i:= 1 to 31 do
begin
if tempDecember = 0 then countZero += 1
else if tempDecember > 0 then countPlus += 1
else countMinus += 1;
end;
writeln('В декабре дней с нулевой температурой было: ', countZero);
writeln('В декабре дней с отрицательной температурой было: ', countMinus);
writeln('В декабре дней с положительной температурой было: ', countPlus);
readln;
end.
Плохо отобразилось, вот скрин:
//Pascal ABC.NET 3.1 сборка 1256
Var
ars:array[1..12] of string:=('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
s:string;
begin
read(s);
if s[1]='0' then delete(s,1,1);
write(copy(s,1,pos('.',s)-1),' ');
delete(s,1,pos('.',s));
write(ars[strtoint(copy(s,1,pos('.',s)-1))],' ');
delete(s,1,pos('.',s));
write(s,' года');
end.
Пример ввода:
15.10.2012
Пример вывода:
<span>15 октября 2012 года</span>
Var ar:array[1..30] of integer;
i,max:integer;
begin;
randomize;
writeln('Array');
for i:=1 to 30 do
begin;
ar[i]:=random(1,100);
write(ar[i]:4);
end;
for i:=1 to 30 do
if max<ar[i] then max:=ar[i];
writeln;
writeln('Result:',max);
<span>end.</span>
3 бита - 8 уровней заряда, т.к. 2^3 = 8
Ответ: В) 8