7. Объем сообщения равен 2 Кбайт. Сообщение содержит 4096 символов. Какова мощность алфавита, с
которого записано сообщение?​

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

20 - 25 = -5

-5 в десятичной системе

якщо загородка - прямокутник,

умовно з - це заєць,

то схема розташування зайців така:

з                          з

                              з

з              з       

три зайці - по кутках, два - біля стінок загородки.

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.