Даны простые логические высказывания:
а={принтер - устройство вывода информации},
b={процессор - устройство хранения информации},
c={монитор - устройство вывода информации},
d={клавиатура - устройство обработки информации},
e={сканер - устройство хранения информации}
а) 110100
б) 100100
в) 100110
г) 00
Var r,d,s,m,a:real;
Begin;
Write('Введите скорость зайца ');
readln(r);
Write('Введите скорость собаки ');
readln(d);
Write('Введите расстояние до леса ');
readln(s);
Write('Введите расстояние между ними ');
readln(m);
a:=s/r;
if (d*a)>=(m+s)
then writeln('Собака догонит зайца')
else writeln('Собака не догонит зайца');
end.
Про круг
Var p,d,l:real;
Begin;
Write('Введите периметр квадрата ');
readln(p);
p:=p/4;
Write('Введите лину окружности ');
readln(l);
d:=(l/pi);
if r<=p
then writeln('Круг войдёт в квадрат')
else writeln('Круг не войдёт в квадрат');
end.
Разделим исходный код на группы по 3 разряда.
1001001001 = 001 001 001 001
Затем заменяем каждую группу на код из таблицы.
Получаем число:
001 001 001 001 = 1111 (это в восьмиричн.)
Разделим исходный код на группы по 4 разряда.
10010010012 = 0010 0100 1001 2
Затем заменяем каждую группу на код из таблицы.
Получаем число:
0010 0100 1001 = 249 (это в шестнадцатирич.)
Для перевода в десятич. необходимо умножить разряд числа на соответствующую ему степень разряда (обозначу степень данным - ^ символом)
1001001001 = 2^9*1 + 2^8*0 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 512 + 0 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 585 (это в десятич.)
Таблицы для перевода находятся в свободном доступе в инете