Ограничено только размеров условного документа, создать можно сотни тысяч, единственное условие - 1 символ = 1 байт = 8 бит
Program sum;
var <span>
x: array[1..30] of real;</span>
<span>i, k: integer;
s:real;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(</span>Exp(Ln<span>(i) </span>/ 3))<span>
if x[i]>0
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln('summa=',s);
writeln('kolvo elementov=', k);
readkey;
end.</span>
Можно уточнение?
-Восимичеую? ЛИбо я что то перепутал, или у тебя опечатка...
Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.
Результат:
Быков 1 коров 9 телят 90
Sfc
sfc хорошист
2012-05-29T19:56:16+04:00
20*32*16 = 10240 (количество символов в статье)
каждый символ кодируется 16-ю битами,
10240 * 16 = 163840 бит.
можно перевести в килобайты.
163840 бит/8 = 20480 байт
20480/1024 = 20 кб.
Ответ: 20 килобайт.