1) Подходит программа 4) 1212.
Маршрут такой: 0 - 3 - 1 - 4 - 2.
2) Точка старта должна быть на 4 шага на юг и 1 шаг на восток от сокровищ.
Как раз от старой березы, ага. :)
Для кодирования одного из 148 значков требуется log(2)148 ≈ 8 бит.
Объем сообщения = 80*8 бит = 80*8 / 8 байт = 80 байт.
Я считаю, что словами написано верное условие, в приведенном фрагменте ошибка: вместо x > 0 должно быть x >= 0
var x: integer;
begin
readln(x);
if x >= 0 then
x := x - 50
else
x := x + 100;
writeln(x)
end.
Пример ввода:
0
Пример вывода:
-50
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.