Print ('1 дюйм = 2.5 см')
print ('2 дюйма = 5 см')
print ('3 дюйма = 7.5 см')
print ('4 дюйма = 10 см')
for i in range (5,21):
print(i,'дюймов =',i*2.5,'см')
Var i:integer;
begin
for i:=100 to 999 do
if i=sqr(i div 100)*(i div 100)+sqr((i div 10)mod 10)*((i div 10) mod 10)+
sqr(i mod 10)*(i mod 10) then writeln(i)
end.
1110 0001 1010 0000 0001 0110 - всего 9 единиц. Просто заменяем каждую шестнадцатиричную цифру четырьмя двоичными.