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