Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5
Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
Для записи одного символа необходимо log(2)128 = 7 бит.
Количество информации в сообщении = 200*7 = 1400 бит = 1400/8 байт = 175 байт
Примеры:
1)
Вышел на улицу - неполная
Вася вышел гулять на площадке перед домом в шесть часов вечера - полная
2)
Поставил два за поведение - неполная
Дворник ради шутки поставил два за поведение в дневник мальчика - полная.
Полезная:
В моей комнате лежит циркуль,который ты вчера искал
Неполезная:
У меня в комнате есть циркуль
понятная :(дайте мне перекись водорода) и непонятная :(дайте мне пероксид водорода