//Функция нахождения суммы цифр числа n
function sum(n: integer): integer;
var s: integer;
begin
s:= 0; //в начале сумма равна 0
while (n>0) do //Пока число положительное выполняем цикл
begin
s:= s+n mod 10; //Находим остаток от деления числа n на 10, суммируем
n:= n div 10; //Находим целую часть от деления числа n на 10
end;
sum := s;
end;
begin
readln(n);
x:= n;
k:= 0;
while (x>0) do //пока число положительное продолжаем выполнять цикл
begin
x:=x-sum(x); //от числа отнимаем сумму его цифр
inc(k); //увеличиваем счетчик
end;
writeln('k=', k);
end.
Преимущества оптических в сравнении с магнитными носителями:
• Сменяемость и транспортабельность
• Высокая плотность записи: у DVD 0.4-0.7Гб на кв.см (у магнитных носителей еще выше, но они не сменяемые)
• Меньшая цена в пересчете на мегабайты данных
• Более долгое ‘время жизни’:
– Магнитные носители: в районе 3-х лет
– Оптические носители: от 30 лет (в случае дисков хорошего качества)
Недостатки:
• Большее время доступа
• Более высокая частота появления ошибок; можно обойти использованием кодов с исправлением ошибок
//Функция нахождения суммы цифр числа n
function sum(n: integer): integer;
var s: integer;
begin
s:= 0; //в начале сумма равна 0
while (n>0) do //Пока число положительное выполняем цикл
begin
s:= s+n mod 10; //Находим остаток от деления числа n на 10, суммируем
n:= n div 10; //Находим целую часть от деления числа n на 10
end;
sum := s;
end;
begin
readln(n);
x:= n;
k:= 0;
while (x>0) do //пока число положительное продолжаем выполнять цикл
begin
x:=x-sum(x); //от числа отнимаем сумму его цифр
inc(k); //увеличиваем счетчик
end;
writeln('k=', k);
end.
• Сменяемость и транспортабельность
• Высокая плотность записи: у DVD 0.4-0.7Гб на кв.см (у магнитных носителей еще выше, но они не сменяемые)
• Меньшая цена в пересчете на мегабайты данных
• Более долгое ‘время жизни’:
– Магнитные носители: в районе 3-х лет
– Оптические носители: от 30 лет (в случае дисков хорошего качества)
Недостатки:
• Большее время доступа
• Более высокая частота появления ошибок; можно обойти использованием кодов с исправлением ошибок