procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна
1) если смотреть это сообщение как предложение то берем юникод и по 2 байта на символ считаем сколько получим, но если нам заранее известно что нам хотят сообщить именно адрес исходя из минимума данных предполагая заранее все выше сказанное известным конечному отправителю, то 4*4=16 квартир всего в доме значит на кодировку каждой понадобится 4 бита 2^4
2) 1 бит информации можно получить лишь в том случае когда лишь два варианта ответа(выбора) а значит 1 бит это либо карась либо щука, и сколько он поймал неизвестно потому как если там 1 карась и 3 щуки, информация о рыбе 1 бит, так и в случае если там 3 щуки и 1000 карасей информация снова один бит, но думаю разумнее будет сказать что столько же тогда вероятность будет идентичной тоесть 3-3, но вероятность редко берут в расчете при кодировании информации потому кто знает...