===== PascalABC.NET =====
begin
var (n, k) := ReadInteger2('Введите N и k:');
var s := 0;
n := Abs(n); // в условии не сказано, что число всегда подожительное!
while n > 0 do
begin
var d := n mod 10;
if d > k then
s += d;
n := n div 10
end;
Print(s)
end.
Есть такжен более короткое решение:
begin
var (n, k) := ReadInteger2('Введите N и k:');
var a := Abs(n).ToString.ToCharArray.Select(c -> c.ToDigit).ToArray;
a.Where(p -> p > k).Sum.Println
end.
В кабинете Информатики нельзя бегать, потому что можно нанести вред компьютеру. Так же нельзя с мокрыми руками пользоваться компьютером. <span>Нельзя пользоваться компьютером без разрешении учителя.</span> В случае ошибки, немедленно сообщить об этом. В конце урока надо встать аккуратно с компьютера и медленно выйти из кабинета.
For a in range(0, 101, 2):
print(a,end=' ')
Результат:
<span>0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 </span>
В целом - тенденция - неутешительная. Видно, что дети стали гораздо больше болеть по практически всем пунктам. Скорее всего это связано с нынешним образом жизни детей.
Дети сидят дома за компьютерами, мышцы атрофируются. Свежего воздуха в городах нет, поэтому заболевания органов дыхания прогрессируют. Компьютерный образ жизни способствует также развитию заболеваний пищеварительной системы. Все данные диаграммы говорят о том, что, по всей видимости, тенденция не только сохранится, а даже усугубится. За здоровье наших детей несет ответственность не только медицина, но и родители.