Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
<span>Передатчик.</span>
<span>Устройств, имеющих в своём составе передатчик, с помощью которого происходит передача информации, много. </span>
<span>Все сетевые устройства для цифровой передачи данных, независимо от среды передачи данных - коммутаторы, роутеры, беспроводные точки доступа, - всё активное сетевое оборудование чего-нибудь передаёт и принимает (с помощью приёмника). </span>
<span>аналоговые устройства - радио, телепередатчики.</span>
1-векторный, 2- растровый