Question

На паскале У второклассников очень популярна следующая задача: 101=1 8181515=4 1111112=0 8888888=14 1010101=3 7000007=? Преподавателю программирования в некоем Центре для одаренных детей так понравилась эта задачка, что он решил именно ее использовать для проверки знаний математики 2-го класса у своих учеников. Пусть первое число x, а соответствующее ему n Входные данные Единственное неотрицательное число x, не превышающее 101001. Выходные данные Выведите n.

Answer 1

{тоже как вариант}

const
  v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
  x,n: integer;
begin
  read(x);
  n := 0;
  repeat
    n := n + v[x mod 10];
    x := x div 10;
  until x = 0;
  write(n)
end.

Answer 2

Var
  x: string;
  n, i: integer;
 
begin
  readln(x);
  for i := 1 to length(x) do
    case x[i] of
    '0', '4', '6', '9': inc(n);
    '8': inc(n, 2);
    end;
  writeln(n);
end.