pascal
Объяснение:
var n, s:integer;
begin
Write('Введите число: ');
ReadLn(n);
while n > 0 do
if (n mod 10 < 6) then s := s + n mod 10;
n := n div 10;
end;
WriteLn(s);
end.
