На паскале

У второклассников очень популярна следующая задача:

101=1

8181515=4

1111112=0

8888888=14

1010101=3

7000007=?

Преподавателю программирования в некоем Центре для одаренных детей так понравилась эта задачка, что он решил именно ее использовать для проверки знаний математики 2-го класса у своих учеников.

Пусть первое число x, а соответствующее ему n

Входные данные

Единственное неотрицательное число x, не превышающее 101001.

Выходные данные

Выведите n.

Question

Информатика

Вероник

18 декабря, 04:47

На паскале

У второклассников очень популярна следующая задача:

101=1

8181515=4

1111112=0

8888888=14

1010101=3

7000007=?

Преподавателю программирования в некоем Центре для одаренных детей так понравилась эта задачка, что он решил именно ее использовать для проверки знаний математики 2-го класса у своих учеников.

Пусть первое число x, а соответствующее ему n

Входные данные

Единственное неотрицательное число x, не превышающее 101001.

Выходные данные

Выведите n.

+1

Ответы (2)

Знаешь ответ?

Инга · 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.