Расписание уроков, календарь, журнал, школьный дневник
На первый вопрос:
0+1=1
1*2=2
2+1=3
3*2=6
6+1=7
7*2=14
14+1=15
Var
n,d1,d10,d100:integer;
begin
Write('Введите натуральное трехзначное число: '); Read(n);
d1:=n mod 10; d100:=n div 100;
d10:=(n div 10) mod 10;
if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)
then Writeln('Есть четная цифра')
else Writeln('Нет четных цифр')
end.
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)