Информатика: 1) 155 div 100=? 2) 155 mod 100=? 3) 155 mod 10=?

1) 155 div 100=?
2) 155 mod 100=?
3) 155 mod 10=?

👇

Увидеть ответ

Ответ:

Jdjdhdh66t

05.12.2021

155 div 100 = 1

155 mod 100 = 55

155 mod 10 = 10

4,4(60 оценок)

Открыть все ответы

Ответ:

darya2401

05.12.2021

1.В содержательном подходе количество информации, заключённое в сообщении, определяется объёмом знаний, который это сообщение несёт получающему его человеку. Один бит - это минимальная единица измерения количества информации. Сообщение, уменьшающее неопределённость знания в два раза, несёт один бит информации.

2.Вероятностный подход предполагает, что возможные события имеют различные вероятности реализации. ... Качественная связь между вероятностью события и количеством информации в сообщении состоит в следующем: чем меньше вероятность некоторого события, тем больше информации содержит сообщение об этом событии.

3.Эта единица называется бит. Сообщение, уменьшающее неопределенность знаний в два раза, несет 1 бит информации. Неопределенность знаний о некотором событии – это количество возможных результатов события.

4.Формула Хартли или хартлиевское количество информации или мера Хартли - логарифмическая мера информации, которая определяет количество информации, содержащееся в сообщении. ... Формула была предложена Ральфом Хартли в 1928 году как один из научных подходов к оценке сообщений.

5.Случа́йное собы́тие — подмножество множества исходов случайного эксперимента; при многократном повторении случайного эксперимента частота наступления события служит оценкой его вероятности.

4,4(67 оценок)

Ответ:

IrinaEfremova2003

05.12.2021

1)
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.

2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.

3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.

4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.

6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.

7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.

9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.

12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.

13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.

14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.

15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.

16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.

4,7(33 оценок)

Это интересно:

Дом-и-сад

31.07.2022

Как покрасить ткань чаем: возможности и результаты...

Стиль-и-уход-за-собой

07.09.2020

Как подчеркнуть изгибы своего тела: советы от профессионалов...

Дом-и-сад

27.07.2022

Как выращивать мяту: советы от опытных садоводов...

Здоровье