==== PascalABC.NET =====
begin
var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');
var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');
var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');
Print('Площадь треугольника равна',
0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))
end.
Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
Program z1;
var
n: real;
begin
writeln('Введите число');
readln(n);
n:=round(n);
writeln('Полученное число ', n);
end.
мощность алфавита 1 равна 17
мощность алфавита 2 равна 32
кол-во символов 1 сообщения равна 100
кол-во символов 2 равна 50
инф. вес символа первого алфавита равна 4
инф. вес символа второго алфавита равна 5
объем сообщения 1 равен 4 * 100 = 400 бит
объем сообщения 2 равен 5 *50 = 250 бит
400 : 250 = 1.6 раза
Var i,s:integer;
begin
s:=0;
for i:=20 to 450 do
if (i mod 4 = 0) then s:=s+i;
writeln(s);
end.