Среди трехзначных чисел найти все числа, средняя цифра которых делится без остатка на сумму крайних цифр

Question

Информатика

Алена

1 декабря, 01:32

Среди трехзначных чисел найти все числа, средняя цифра которых делится без остатка на сумму крайних цифр

+1

Ответы (1)

Знаете ответ на вопрос?

Каллистрат · Answer 1

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.