<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
javascript:var массив = []; for (let сч = 0; сч < 8; сч++) массив.push(parseFloat(prompt())); var произв_1 = массив[0], произв_2 = массив[4]; for (let сч = 0; сч < 2; сч++) { произв_1 *= массив[1 + сч]; произв_2 *= массив[5 + сч]; } alert(произв_1 + " " + произв_2);
Каждая планета Солнечной системы вращается вокруг своей оси
Всякий человек способен мыслить
Var s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
7*36*50=12600 - всего символов
2^i=64 => i=6 бит - занимает один символ
12600/6=75600 бит = 9450 байт - объем сообщения