На паскале

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

101=1

8181515=4

1111112=0

8888888=14

1010101=3

7000007=?

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

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

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

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

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

Выведите n.

Question

Информатика

Якуб

28 сентября, 21:15

На паскале

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

101=1

8181515=4

1111112=0

8888888=14

1010101=3

7000007=?

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

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

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

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

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

Выведите n.

+5

Ответы (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.