Определить все трехзначные числа, которые при делении на 11 дают в частном число, равное сумме квадратов цифр исходного числа.

Var i, j, k:integer;

begin

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)

then writeln (i*100+j*10+k) ;

end.

Результат:

131

241

324

550

624

803

900

910

Если требуется деление на 11 без остатка, то:

var i, j, k:integer;

begin

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

if ((i*100+j*10+k) mod 11) = 0 then

if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)

then writeln (i*100+j*10+k) ;

end.

Результат:

550

803