Var a,b,c:integer;
begin
writeln('введите число кроликов');
readln(a);
c:=0;
for b:=1 to a do
begin
if (b mod 3 = 0) then c:=c+1;
end;
writeln(c ,' клетки будут полностью заполнены');
<span>end.</span>
1. Если алфавит содержит 64 символа, то его символы можно закодировать числами от 0 до 63. В двоичном коде для представления чисел такого диапазона потребуется 6 бит
Ответ: потребуется код разрядности шесть бит.
2. Пятиразрядный двоичный код позволяет закодировать символа с кодами от 0 до 31.
Ответ: пятиразрядного кода будет недостаточно.
3. Каждую лампочку можно представить битом. Выключенной лампочке соответствует нулевое значение бита, включенной - единичное.
Для передачи 15 различных сигналов потребуется четыре лампочки, поскольку , т.е. 4 лампочки способны передавать до 16 сигналов. Трех лампочек будет недостаточно: они могут передать не больше сигналов.
Ответ: потребуется четыре лампочки.
Read(a,b); c:=a+b; Write(a,b,c);
Только надо помнить, что на выводе все "слипнется" и не удивляться.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
procedure f(x:real;var y:real);
begin
y:=2*Cos(3*x)
end;