89->24
1)89+1=90 (2)
2)90/2=45 (1)
3)45+1=46 (2)
4)46/2=23 (1)
5)23+1=24 (2)
Ответ: 21212
Не в каком. Это миф. Некоторое излучение было только от очень старых CRT мониторов (когда экран еще был без защитного покрытия) .
Анекдот в тему:
Несколько лет назад, в одной деревне установили вышку сотовой связи.. . Через несколько месяцев, жители написали громадное число писем с просьбой срочно демонтировать ее, т. к. у жителей начались частые головные боли, понос и золотуха.. . Представитель сотовой компании написал им ответ - "Представляете что с Вами будет, когда мы ее включим? "
2 0 1 0 0
3 0 1 0 0
4 0 1 0 0
5 0 1 0 0
6 0 1 1 1
Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.