Переведем в одинаковую систему
<em><u>1100(2) = 12(10)</u></em>
101101(2) = 45(10)
<u><em>16(10)</em></u>
<u><em>111(2) = 7(10)</em></u>
<em>11001(2) = 25(10)</em>
<u><em>9(10)</em></u>
<u><em>101(2) = 5(10)</em></u>
<u><em>10111(2) = 23(10)</em></u>
53(10)
Получается
101(2) 111(2) 9(10) 1100(2) 16(10) 10111(2) 11001(2) 101101(2) 53(10)
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var (sum,p):=(0,1.0);
ReadSeqIntegerWhile(t->t<>0).ForEach(f->begin sum+=f; p:=p*f; end);
write('сумма: ',sum,'; произведение: ',p);
end.
1. Внешний вид класса
2.Традиции в классе
3.Сколько человек в классе
4.Какой учитель
Не в каком. Это миф. Некоторое излучение было только от очень старых CRT мониторов (когда экран еще был без защитного покрытия) .
Анекдот в тему:
Несколько лет назад, в одной деревне установили вышку сотовой связи.. . Через несколько месяцев, жители написали громадное число писем с просьбой срочно демонтировать ее, т. к. у жителей начались частые головные боли, понос и золотуха.. . Представитель сотовой компании написал им ответ - "Представляете что с Вами будет, когда мы ее включим? "
const N = 12;
const lim = 65535;
var array1: array [1..N] of real;
i: integer;
begin
randomize;
for i:=1 to N do begin
array1[i]:= random(-lim, lim) * 2;
writeln(array1[i]);
end
end.