Надо считать по монете так как по другому никак.( мы в классе решали)
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Всего 20 домов
№16 не ясно из чего (т.е из любого)
6/20=0,3 дерево
8/20=0,4 кирпич
0,3 железобетон
0,3+0,4+0,3=1
Подробное решение во вложении
Ответ: 4 система счисления