с информатикой, файл прикреплен

Объяснение:Не

тот файл скинул

да,можно.только одного цвета будет 12,а другого тоже 12 и одна клетка останется. 

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.