Допустим в 1 доме живет ткачиха. Из этого следует, что во 2-повариха, 3-швея, 4-портниха.
Затем составляшь таблицу следуя из суждений
примерно так:
повариха портниха швея ткачиха
Маша - + - -
Даша - - - +
Глаша - - + -
Наташа + - - -
ответ: Даша-ткачиха
Допустим в 1 доме живет ткачиха. Из этого следует, что во 2-повариха, 3-швея, 4-портниха.
Затем составляшь таблицу следуя из суждений
примерно так:
повариха портниха швея ткачиха
Маша - + - -
Даша - - - +
Глаша - - + -
Наташа + - - -
ответ: Даша-ткачиха
a : array ['0'..'9'] of integer;
s : string;
i : integer;
j : char;
begin
readln (s);
for i := 1 to length (s) do
if s[i] in ['0'..'9'] then inc (a[s[i]]);
for j := '0' to '9' do
for i := 1 to a[j] do
write (j);
end.