Помогите, пожалуйста, с кодом в Паскале
Найти количество и сумму цифр натурального числа n, которые (цифры) принадлежат числовому отрезку СВ, где СВ принадлежит {0,1,2...9}. Решить через оператор while.
По дате
По рейтингу
Попробуй так:
123456789101112131415161718
var n, s, k, i: integer;
begin
readln(n);
s := 0;
k := 0;
i := 1;
while i <= n do
begin
if (i mod 10) <= 9 then
begin
s := s + i mod 10;
k := k + 1;
end;
i := i div 10;
end;
writeln(k);
writeln(s);
end. где код? это уже не помогите сч кодом ,а : сделайте за меня...