Var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.
Пример:
n = 14568
Четных цифр - 3, нечетных - 2
Анализируя словосочетание "лиро касс" и "дум касс дан", замечаем, что слово касс встречается в обоих случаях, следовательно касс обозначает красный. Слово "лиро" нигде больше не встречается, поэтому оно обозначает помидор. Во втором и третьем словосочетаниях встречается одно и тоже слово "дан" т.е. большой. Следовательно "ксер" - конь, а "дум" -трамвай. это и есть ответ