===== PascalABC.NET =====
function RS(a: array of integer): integer;
begin
var n := a.Length;
Result := a[0];
if n > 1 then
Result += RS(a[1:])
end;
begin
var n := ReadInteger('Число слагаемых:');
var a := ReadArrInteger('Вводите:', n);
RS(a).Println
end.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
Вверх — переместить Робота на одну клетку вверх
вниз — переместить Робота на одну клетку вниз
влево — переместить Робота на одну клетку влево
вправо — переместить Робота на одну клетку вправо
закрасить — закрасить текущую клетку (клетку в которой находится Робот).
Так же есть циклы
если условие
то серия 1
иначе серия 2
все
выбор
при условие 1 : серия 1
при условие 2 : серия 2
…
при условие n : серия n
иначе серия n+1
И условия
слева стена
справа стена
снизу стена
сверху стена
клетка закрашена
слева свободно
справа свободно
снизу свободно
сверху свободно
клетка чистая
Для записи часов используются 24 значения (0-23) 16<24<32 32=2^5, т.е. запись одного показания времени занимает 5 бит. То-же самое для влажности (48-62) 8<15<16 16=2^4 и температуры (13-22) 8<10<16 16=2^4. Получаем, что сообщение с 3 показателями имеет объем 5+4+4=13 бит. 13*30=390 бит
7. При пересечении - 30,
при объединении - 40+30=70