Var
A:integer;
Begin
For A:= 100 to 999 do
if Sqr(A div 100)+Sqr((A div 10) mod 10)+Sqr(A mod 10) = 14 then
Write(A,' ')
End.
Результат работы программы:
123 132 213 231 312 321
Минимальная мощность алфавита пригодного для передачи информации равна 2.
Информационная биологическая модель.
Информационная социально-трудовая модель
(вот это меня вштырило).