Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>
Мне такого не давали решать, и я точно не знаю как это делается, сделал как мог...
1) 7,5кб = 7,5*1024*8 бит = 61 440 бит
61 440 / 7680 = 8 бит на символ
2^8 = 256 символов в алфавите
2)32=2^5 т.е. 5 бит на символ
8775 байт = 8775*8 бит
8775*8/6/30/5 = 78 символов в строке
Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
В Logisim эта конструкция работает, смотри картинку.