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

Question

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

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.