function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
6538 .8 это единицы;
8356.8-это тысячи;
87 восемь это десятки
831 восемь это сотни.
нумерация начинается с конца.сначала идут единицы потом десятки затем сотни потом тысячи и тд
Пусть задан некий алфавит (в данном случае это множество оценок 1,2,3,4,5) и есть вероятность p_i выпадения символа i этого алфавита, тогда справедлива формула Шеннона, о том, что некое сообщение будет иметь объем информации равный I:
Пусть вероятность получения пятерки равна p. P = N/100 (число пятерок на число оценок). Нам известно, что сообщении о одной пятерке имеет объем 2 бита, применяем формулу:
ответ 25 пятерок