Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
1. Лицевой счет - 12 цифр (максимум 999 999 999 999)
2. Месяц - 8 символов в алфавите из 22 символов
3. Год - поле из двух цифр, максимальное значение 99
4. Показание счетчика - 10 цифр (максимум 9 999 999 999)
5. Оплачено - число с максимальным значением 1000
Итоговая длина строки составит 40+40+7+34+10=131 бит.
Поскольку в одном байте восемь бит, длина в байтах будет округленно равна 17.
1) Дано:
k = 4096 сим.
I = 3.5 Кбайт
Найти N = ?
Решение:
N = 2^i
I = k*i
i = I/k
3.5 Кбайт = 3584 байт = 28672 бит
i = 28672 / 4096 = 7 бит
N = 2^7 = 128 символов
2)
Глубина цвета = 350 Кбайт / (1280 * 320 пикселей) = 350 * 8 * 1024 бит / 409600 пикселей = 2867200 бит / 409600 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов
3)
280 Гбайт = 280 * 1024 * 1024 * 1024 * 8 бит = 2405181685760 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 2405181685760 / 5872025600 шт = 409.6 шт ~= 410 шт (округляем в большую сторону так как кусками тут быть не может)
На один ребус тебе. излогает шум но не играет. С проводом но без электричества. Что это?