//Функция нахождения суммы цифр числа 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.
Лето,самое прекрасное время года!Это и жара,и речки ,озёра,моря,всевозможные пляжы)Для детей учащихся в школах или вузах,лето -это прежде всего ,время хорошего отдыха и огромного веселья.Естественно летом на даче нужно садить ,а вскоре ухаживать за огородом,но зато потом собственно выращенные овощи ,без всяких добавлений и консерваторов,не перемороженные по несколько раз,а свои с куста.Очень повезло если есть вишня или малина ,можно её объесться вдоволь ,наделать много варенья и зимой с горячим чаем его поесть)
ответ к заданию по русскому языку
![Запишите, расставляя недостающие знаки препинания.](/images/question/7625812_7625822.jpg)