Lemavekpy
6 год назад
Пожалуйста посчитайте решить задачу на Паскале Заданное натуральное число N Андрей записал ручкой на листе бумаги, после чего ножницамипорезал лист по линиям, которые были оставлены ручкой. В результате лист распался на неКак узнать сколько частей. Напишите алгоритм, который определяет Как узнать сколько частей получилось.
ОТВЕТЫ
Богдана
Oct 24, 2020
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.
За правильность не отвечаю))
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.
За правильность не отвечаю))
630
