Var n,i,j,s:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
s:=0;
for j:=1 to i div 2 do
if i mod j = 0 then s:=s+j;
if i=s then write(i,' ');
end;
writeln;
<span>end.</span>
...нужен Топор
...огород - лейка
...во льду прорубь
...это еж.
В кодировке <span> ASCII один символ занимает 1 байт.
</span><span>Текст занимает 24 576 бит памяти
24576 бит /8 =3072 байта.
Значит текст содержит 3072 символа, включая пробелы</span>
Не разшифровается а,Расшифровавается
Ответ:Монитор
1) 2 * 80 * 9 * 0.5 = 720 кбайт
2) /C/D/
3) /C/D/Nick (возможно еще .txt)
4) 2 * 80 * 15 * 0.5 = 1200 кбайт
5) /C/B
6) /B/A/B/C/Rosa (возможно еще .rtf или .doc, или в чем там Writer сохраняет)
7) 2 * 30 * 18 * 0.5 = 540 кбайт
8) /C/A/
9) Без конкретики не знаю. Какой-нибудь Date.