1. Истина(true)
2. Истина(true)
3. Ложь(false)
4. Ложь(false)
5. Ложь(false)
6. Истина(true)
7. Истина(true)
8. Истина(true)
<span>Если 33 буквы то на кодирование 1 буквы идет 6 бит, а букв 33,то 33*6=198 бит</span>
Var a:integer;
begin
readln(a);
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
Таблица истинности (смотри прикрепленный скрин)
Еще 3D принтеров...
ну а так всё ограничивается только фантазией, знанием и законом