Делим на тройки чисел с конца.
110 010 011 010 011 тогда получаем:
6 2 3 2 3
Значит
62323 (8)
Чем: камин, печка, солнце, костер, горячая вода, одежда
что: человек, комната, еда, земля,
PascalAbc.NET
var
a,k:longint;
begin
k:=0;
a:=123454;
while a <> 0 do
begin
read(a);
if (a div 10 <=9) and (a div 10 >=1) then
inc(k);
end;
writeln(k);
end.
Раздел матиматичейской логики. ответ 1. И да ты даёшь 5 баллов. а не 45. Не ври больше)