<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var d,f,g,h:real;
Read(d,f,g,h);
var m:=(d-f)/(g+h);
var n,p:real;
if m<0 then n:=Abs(m)
else if m>0 then n:=Sqrt(m)
else n:=d*d;
if d.Between(1,2) then p:=n-d
else p:=1/n;
Writeln('m= ',m,', N= ',n,', P= ',p)
end.
<u>Пример</u>
-1.4 2.7 10 3.06
m= -0.313935681470138, N= 0.313935681470138, P= 3.18536585365854
<span>import random as r
mas = [r.randint(-50,50)for i in range(21)]
print('Рандомни числа от -50 до 50:\n',mas)
print('Вивод цифр з нечетным индексами:\n',str(mas[1::2]))
print("Suma = ",sum(mas[1::2]))
<span>#print('\n',suma)</span></span>
Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Using System;
class Program
{
static void Main()
{
var symbols = new char[] {'A', 'a', '0', '}', 'T'}; //символы из которых может состоять строка
var r = new Random();
var s = "";
for(var i = 0; i < r.Next(255); i++) {
s += symbols[r.Next(symbols.Length - 1)].ToString();
}
Console.WriteLine(s);
Console.ReadKey();
}
}
Дано: ИНФОРМАТИКА, i-?
Решение:
<span> i=log2(1/P)
</span>И: i=log2(1/0,062)=4 бит
Н: i=log2(1/0.053)=4,24 бит
Ф: i=log2(1/0.002)=8,97 бит
О: i=log2(1/0.090)=3,47 бит
Р: i=log2(1/0.040)=4,64 бит
М: i=log2(1/0.026)=5,27 бит
А: i=log2(1/0.062)=4,01 бит
Т: i=log2(1/0.053)=4,24 бит
К: i=log2(1/0.028)=5,16
i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит
Ответ: 52,01 бит