<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
Var
s,fam,nam:string;
begin
writeln('Vvedite imy i familiy:');
readln(s);
nam:=copy(s,1,pos(' ',s)-1);
fam:=copy(s,pos(' ',s)+1,length(s));
if nam[length(nam)]=fam[length(fam)-1] then writeln('Sovpadayut') else writeln('Ne sovpadayut');
write('Dly vyhoda nagmite Enter');
readln;
end.
мозг быстрее всего обрабатывает информацию , флешка дольше всего хранит инфу а дальше сам понять не могу
Ответ:
ИЛИ ложное, когда оба ложные, значит х≤50 и х-четное, след-но наименьшее из 2,4,...48,50 , =2 -ответ
1)
128=2^7
значит на один символ отводится 7 бит
240 / 7 = 34,2857142857
Скорее всего в цифрах задачи допущена неточность, потому что дробных символов. также как и дробных бит, не бывает
Но если исходить из имеющихся данных, то в сообщении 34 символа.
Если же была ошибка в цифрах, то скорее всего на 1 символ (по замыслу составителей задачи) отводится 8 бит и тогда 240/8=30 символов в сообщении.
2)
Внутреннее представление чисел в компьютере - это двоичные числа
499(10) = 111110011(2)
2 байта это 8*2=16 бит, т.е 16 знаков в числе
Добавим спереди (слева) нули до 16 знаков, получаем внутренне представление числа в 2-х байтовой ячейке:
0000000111110011
Переведем его в 16-ричное представление. Для этого разобьем полученное число на группы по 4 знака (справа налево) и подставим вместо получившихся 4-значных блоков их 16-ричное значение:
0000 0001 1111 0011
0 1 F 3
Ответ: 01F3
