Question

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

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.
За правильность не отвечаю))