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

Ответы

liyanborisova 01.09.2020 10:49

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

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

юлия19844 30.11.2020 14:42

Вкадить правильно посиленны на плитку електроной таблицу...

Ivan208280 30.11.2020 14:41

Для какого целого числа X ЛОЖНО высказывание:(X 5) ИЛИ НЕ (X 4)?...

buchsandra 30.11.2020 14:41

Приведите примеры текстов,различающихся по размеру,по оформлению,по назначению....

30.11.2020 14:41

Яка комбинация клавиш призначена для виделення всього аркушу...

svepielisz 30.11.2020 14:41

Какое утверждение верно про оперативную память: При отключении электричество информация остается на оперативной памяти Оперативная память быстрее SSD На компьютер...

leonru1 30.11.2020 14:40

Как называется игра В начале этой игры нужно выбрать цвет твоей армии их там около 5. Потом ты должен управлять армией этих солдатиков но это не игра у которой...

мод8 30.11.2020 14:40

1 Напишите наименьшее целое число X, для которого истинно высказывание: (X 10) И НЕ (X 7)2 Для каких значений числа X истинновысказывание:НЕ (X 7) и (X 4)?В ответе...

стеффа11 30.11.2020 14:39

Введите с клавиатуры 5 положительных целых чисел. Вычислите сумму тех из них, которые делятся на 4 и при этом заканчиваются на 6. Программа должна вывести одно...

Алексей22891 30.11.2020 14:39

Напишите наименьшее двузначное число, для которого истинно высказывание:НЕ(первая цифра чётная) И (число делится на 4)....

mrarmen1999mailru 30.11.2020 14:39

Чему равен х при следующих значениях А и В: A=-2, B=12 Cls INPUT A, B IF A =1 then x=6*A¬2+B-1 ESLE X=4*A¬2+B-7 Print x End...

Популярные вопросы