Среди трехзначных чисел найти все числа, средняя цифра которых делится без остатка на сумму крайних цифр
Ответ: Василий
Var i, n, m, sum, k:integer; sr:real; b:array[1 … 3] of integer; beginfor m:=100 to 999 do beginn: = m; repeat begini: = i + 1; b[i]: = n mod 10; n: = n div 10; end; until n = 0; k:=b[2]; sum: = b[1] + b[3]; sr: = k mod sum; if sr = 0 then beginwrite (m:4); end; i:=0; end; end.
Учитель физики, информатики и вычислительной техники. Победитель конкурса лучших учителей Российской Федерации в рамках Приоритетного Национального Проекта "Образование".
