Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>
Все свои фото, видео, доки т.д. перенеси на диск D, и игры устанавливай на D. Закачки с инета поменяй в настройках браузеров на папку на диске D. Всё, что на Рабочем столе - это диск С. Оставь только ярлыки игр, программ, а все файлы перенеси на D.
Программы на Паскале прилагаются.
Решение привожу в .cpp файле, каждый пункт реализован в отдельной функции.
<em>Замечание 1</em>: Для заданий типа "Найти произведение цифр, удовлетворяющих условию", в случае, если подходящих цифр нет, произведение считается равным нулю.
<em>Замечание 2</em>: В задании 2 в случае, если число содержит более 3ех пятерок, считается, что ответ на вопрос "Содержит ли число три цифры 5?" положительный.
<em>Замечание 3</em>: Для пункта 4, в случае, если после удаления 1 и 3 из числа остаются нули или цифр не остается вообще, считается, что итоговое число равно 0. Если оставшиеся после удаления 1 и 3 цифры образуют последовательность, начинающуюся с некоторого количества n нулей, за которыми следует хотя бы одна ненулевая цифра, то эти n нулей не выводятся. Знаки у исходного и итогового числа совпадают, за исключением случая, когда итоговое число равно 0.
