// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
Файл - структура данных, распознаваемых ПК. Каталог - список файлов с указанием места хранения на винчестере.
2. Чучело. 1, 2, 4 можно выполнить на любом компьютере, поэтому они явл. Комп. Моделью
Это тебе уже самому делать придестся,помочь не получится