Var
C:char;
Begin
For C:='0' to '9' do
if Ord(C) mod 3 = 0 then
WriteLn(C)
End.
Лепи из пластилина
потом попробуй по макету сделать из того материала из которого надо.
Синих карандашей = 32*0,5=16
Зеленых карандашей = 32*0,25=8
Желтых = 32* 0,125=4
Красных = 32* 0,0625=2
16+8+4+2=30
Значит белых карандашей 32-30=2
? - один произвольный символ(обязательно)
*- любая или пустая последовательность символов
?ese*ie.?t* к этой маске подходит A)seseie.ttx, так как во всех остальных случаях не хватает символа к первому вопросу в файле.
1.25 кб=1280 байт
байт=8 бит
1,25 кБ=10240 бит
В 10240 бит вместилось 2048 символов, потому что 10240 бит/2048 символов=5 бит/символ. 2^5=32
в итоге ответ: мощность алфавита 32 бита