Помогите решить задачу на Паскале

Заданное натуральное число N Андрей записал ручкой на листе бумаги, после чего ножницами порезал лист по линиям, которые были оставлены ручкой. В результате лист распался на несколько частей. Напишите алгоритм, который определяет сколько частей получилось.

Question

Информатика

Инуся

4 ноября, 23:51

Помогите решить задачу на Паскале

Заданное натуральное число N Андрей записал ручкой на листе бумаги, после чего ножницами порезал лист по линиям, которые были оставлены ручкой. В результате лист распался на несколько частей. Напишите алгоритм, который определяет сколько частей получилось.

+1

Ответы (1)

Знаете ответ на вопрос?

Нинуня · Answer 1

Var n, s: integer;

begin

readln (n) ;

s : = 1;

repeat

case n mod 10 of

0, 6, 9: inc (s) ;

8: inc (s, 2)

end;

n : = n div 10

until n = 0;

writeln (s)

end.

За правильность не отвечаю))