Примеры свойств информации (объективность, достоверность, актуальность, полезность, понятность, полнота) в примерах(книга или учебник, телевизор, интернет, разговор, газета , плакат)

14/2=7(0)

7/2=3(1)

3/2=1(1)

1/2=0(1)ответ 1110 в двоичной системе

 

14/8=1(6)

6/8=0(1) ответ 16

 

14/16=0(1) ответ 1

 

65/2=32(1)

32/2=16(0)

16/2=8(0)

8/2=4(0)

4/2=2(0)

2/2=1(0)

1/2=0(1) ответ 1000001в двоичной системе

 

65/8=8(1)

8/8=1(0)

1/8=0(1) ответ 101 в восьмеричной системе

 

 65/16=4(1)

4/16=0(1)ответ "В"

 

Из правил сервиса: "Пользователи признают, что задания, которые содержат большое количество задач, требующих решения, должны быть разделены на два или несколько заданий и в таком виде добавлены в Сервис для других Пользователей. То есть в одном задании не может быть несколько задач".

 

 

1)

Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('Vvedite N');
readln(n);
For i:=1 to N do
if n mod i=0 then k:=k+1;
Writeln('Delitelei ',k,' vkluchaya 1 i ',n);
readln
end.

 

 

2)

Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('Vvedite N');
readln(n);
For i:=1 to N-1 do
if n mod i=0 then k:=k+i;
If k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno');
readln
end.

 

 

3) Вычислить, я так поняла, сумму всего этого?

Program n1;
Uses CRT;
Var k,n,i,j,a: integer; s: real; p: longint;
begin
Writeln('Vvedite a,N');
readln(a,n);
p:=1;
For i:=1 to n do
For j:=1 to i do
p:=p*a;
s:=s+1/p;
writeln(s);
readln
end.