1)
Var
i,n:integer;
begin
n:=0;
i:=0;
while i<>100 do begin
i:=i+1;
n:=n+i;
end;
writeln(n);
<span>end.
</span>2)
Var
i,n:integer;
begin
n:=0;
i:=0;
repeat
I:=i+1;
n:=n+i;
until i=100;
writeln(n);
end.
<span>3)
Var
i,n:integer;
begin
n:=0;
i:=0;
For i:=0 to 100 do
n:=n+i;
writeln(n);
<span>end.</span></span>
3 гигобайт= 3145725 килобайт
68 мегабайт=71303168 <span>байт</span>
1024 мегабайт=1 гигобайт
1536<span> килобайт </span>=1 мегабайт 512 килобайт
32гигобайта= <span>34 359 738 368 байт</span>
<span>
</span>
1 буква = 1 байт
В слове учебник 7 букв, соответственно и 7 байт
<span>print("На трьох будинках є ",3*25,'нінзь!\nВ двох тунелях є ',2*40,'самураїв!\n<span>Всього воїнів вирішили влаштувати </span>заварушку:',3*25+2*40)</span>
1010,10*1000,01=10,25*8,25=84,56(10)=1010100,10(2)
56,71(10)=111000,10(2)