Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0
Количество символов в алфавите
1. да; 2. нет; 3. картинка; 4. да; 5. да обязательно; 6. да
Var i, k,a1,a2,a3,b1,b2,b3: integer;
k:=0;
for i:=100000 to 999999 do
begin
a1:=i mod 100000;
a2:=i/10 mod 10000 ;
a3:=i/100 mod 1000;
b1:=i/1000 mod 100;
b2:=i/10000 mod 10;
b3:=i/100000 mod 1;
if ((a1+a2+a3=13) and (b1+b2+b3=13))
k:= k+1;