<span>Информационное сообщение объемом 300 бит содержит 100 символов. Какова мощность алфавита?<span> <span>Дано:Объем сообщения = 300 бит
текст состоит из 100 символов
Какова мощность алфавита?</span></span>Решение:1. Определим вес одного символа: 300 / 100 = 3 бита.2. Мощность алфавита определяем по формуле: 2 3 = 8.</span>
Формализованный (формальный)<span> язык –– язык, характеризующийся точными правилами построения выражений и их понимания. Он строится в соответствии с четкими правилами, обеспечивая непротиворечивое, точное и компактное отображение свойств и отношений изучаемой предметной области (моделируемых объектов). Проще говоря алгоритм</span>
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
Сделал в VS 2016
Вариант с использованием While
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
while (a <= b)
{
if (a % 3 == 0)
{
Console.WriteLine(a);
}
a++;
}
Console.ReadKey(); }
}
}
Вариант с использованием do while
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
do
{
if (a % 3 == 0)
{
Console.WriteLine(a);
}
a++;
}
while (a <= b); Console.ReadKey();
}
}
}
Вариант с использованием for
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
for (int i = a; i <= b; i++)
{
if (i % 3 == 0)
{
Console.WriteLine(i);
}
} Console.ReadKey();
}
}
}
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Println; // 1
SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2
a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3
a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4
// 5
var m := a.Min;
if m < 0 then
Println(m)
else
Println('Нет отрицательных чисел')
end.