Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
Переведем все в биты.
А)8000 бит
Б)1001 байт=8008 бит
В)1кбайт=1024байта=8192 бит
Г)1мбайте-1024 кбайта,1кбайте-1024 байта,в 1 байте-8 бит,след.1мбайт=1024*1024*8=8388608 бит
8388608*0,001=8388,608 бит
След,ответ Г).
<span>зааписи делались на глинянных плитках , табличках острыми палочками и обжигались на огне</span>
Var
n,i:Integer;
begin
for i:=-5 to 5 do
WriteLn(3*i+2);
end.