Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
Ответ А будет лишним, остальные варианты это пакет office от ms
Бит - он бинарен, он может принимает 2 значения.
1 гб = 1024 мб
1 мб = 1024 кб
0.00390626 гб = 4 мб = 4096 кб