Просто выполняем алгоритм для каждой из клеток.
Например, 4 клетка в пятом ряду: у неё сверху стенка, поэтому она двигается вправо, оттуда опять вправо, оттуда еще раз вправо и врезается в стенку после 6-й клетки.
4 клетка в третьем ряду: у ней сверху нет стенки, снизу есть, поэтому робот движется влево. Затем снизу нет стенки, а сверху есть, поэтому робот возвращается обратно, и всё повторяется.
6 клетка во втором ряду: у неё ни сверху, ни снизу нет стенок, поэтому она стоит на месте.
Клетки, начав с которых, робот разбивается помечены персиковым цветом, в них указано, о какую стенку он разбивается. Клетки, начав с которых, робот делает конечное число шагов, отмечены бледно-оранжевым цветом, в них указано, в какой клетке остановится робот. Зелёные клетки удовлетворяют условию, их на рисунке 6.
Program zadacha;
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.
Var a:longint;
begin
read(a);
writeln(a*8388608);
end.
Формула Шеннона о количестве информации в событии с вероятностью p
i=-log(p)/log(2)
Важно только количество целых чисел в диапазоне. Чем больше чисел в диапазоне, тем меньше вероятность выбора одного числа и тем больше информации в сообщении о выборе
a) 76-12+1 = 65
в) 133-100+1=34
с) 25-(-17)+1=43
д) 0-(-32)+1=33
е) 34-12+1=23
Соответственно, наименьшее количество информации будет в сообщении о выборе числа из последнего диапазона, от 12 до 34
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.