Извини конечно но это с паскалем можно решить только. вот если что
4)
var a, s: integer;
begina:=1;
while a<>0 do begin
read(a);
if (a mod 3 = 0)and(a<>0) then s:=s+1;
end;
writeln(s);
end.
Перевести число 100110 из двоичной в десятичную
<span>18205 - можно разделить на номера 18-20-5 или 1-8-20-5 (не подходит)
20158 - можно </span>разделить на номера 20-15-8 или 20-1-5-8 (не подходит)<span>
20518 - можно </span>разделить на номера 20-5-18 или 20-5-1-8 (не подходит)<span>
81205 - можно </span>расшифровать только 8-1-20-5: "HATE"