<span><em></em><em>Если a - это -10 :</em>
</span>var b,i,s:integer;
begin
s:=0;
read (b);
if (b>-10) then
begin
for i:=-10 to b do
begin
s:=s+i;
end;
end;
writeln (s);
end.
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Var
c:char;
k:integer;
FlagBlank:boolean;
begin
Read(c);
case c of
'К','к':begin k:=1; FlagBlank:=True end;
' ':begin k:=0; FlagBlank:=False end;
'.':k:=0;
else begin k:=0; FlagBlank:=True end
end;
while c<>'.' do begin
while (not FlagBlank) and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
while Flagblank and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
if UpCase(c)='К' then Inc(k);
end;
Writeln(k);
end.
1) a=29-1=19
2) 1101011(2) =1*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0=64+32+8+2+1=107(10)
3) 12112
16 бит - вес 1 знака
вес всего файла= скорость на время = 512000 бит
количество знаков = вес всего файла/вес одного знака = 512000/16=32000бит