Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
Для передачи сообщения используется набор,состоящий только из десятичных цифр(0,1,2,3,4,5,6,7,8,9). Определите минимально возмож
оксана одинцова [7]
Цифр 10 значит минимум нужно 2^4=16 комбинаций из 4 бит.
Ответ - 4 бит
152 бит = 152 / 8 байт = 19 байт
1 байт = 8 бит
1 бит = 1/8 байт
Решение на Pascal
var tenge,bilet:integer;
begin
tenge:=1000;
readln(bilet);
if bilet=tenge then
writeln(' вы можете купить билет');
if bilet>tenge then
writeln(' вам придется смотреть фильм в следующий раз');
if bilet<tenge then
writeln(' <span>вы можете купить напиток и билет</span>');
end.