объём информации содержит 1500 байт.
1.
var x,a:integer; p:real;
begin
a:=3;p:=1;
for x:=1 to 5 do p:=p*a*x*x/sqrt(x+5);
writeln('p=',p);
<span>end.
2.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
while x<5 do
begin
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
end;
writeln('p=',p);
<span>end.
3.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
repeat
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
until x=5;
writeln('p=',p);
<span>end.
Результат:
p=20122.311710423
</span></span></span>
По степени преобразования различают первичную и производную информацию.
Первичная информация сохраняется или используется в том виде, в каком была получена. Основной метод ее образования — первичный учет (пересчет, перевес, проверка по качеству), а также использование данных входящих документов в неизменном виде.
Преобразованая информация получается путем переработки первичной. Она формируется в результате составления отчетов на основе учетных данных или заимствования полученной первичной информации (составление карточек количественно-суммового учета и журнала регистрации движения товаров на основе товаросопроводительных документов). Надеюсь помогла вам.
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
1000111001(2)=569(10)=1071(8)=239(16), 1517(10)=10111101101(2)=2755(8)=5ED(16), 11123(8)=4691(10)=1001001010<span>011(2)</span>