Свой ты должна знать сама, если чей то,то спроси у этого человека.
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.
Результат:
<span>550
803</span>
Самые разные. Например, мини-проектор. Было немало концептов с такой идеей. Даже есть серийный планшет с таким проектором (Lenovo, если память не изменяет). Также можно сделать функцию весов, работающая с помощью дисплея смартфона. На данный момент есть несколько смартфонов, которые умеют распознавать силу нажатия на экран. Например, тот же iphone 7(6s). И если эту технологию доработать, то это вполне реальная и полезная функция
2,3,5,7,11,13,17,19,23,29,31,37,41,43,47.