Сообщение племени Мульти занимает 4 * 120 = 460 бит (потому что 16 = )
Сообщение племени Пульти занимает 5 * 96 = 480 бит (потому что 32 = )<span>Ответ: сообщение племени Пульти больше сообщения от племени Мульти на 20 бит. </span>
2.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = 4
y = 1
Да
7.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-6)and
((y<=7)and(y>=2)and(x<=-1)or(y<=2)and(y>=-3)and(x<=-3))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -2
y = 1
Нет
6.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(x>=0)and(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = 3
y = -3
Да</span></span></span>
Не позиционный с.с. - римская или арабская
Позиционная с.с. - двоичная, троичная, восьмеричная, десятиричная и тп
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(7, -5, -2, 6, 8);
var b := Arr(0, -1, -1, 0, 0);
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
Пример заполненной таблицы - в прилагаемом файле.
Формула для расчета (на примере ячейки D4):
=ЕСЛИ(C4<=$C$2;C4*$A$2;$C$2*$A$2+(C4-$C$2)*$B$2)