<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:set of integer:=[];
Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
repeat
var n:=ReadInteger;
if not (n in [1..255]) then break
else s+=[n]
until false;
Writeln('-'*10);
foreach var k in s do
if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.
<u>Пример</u>
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500
----------
77 8 55 222
Все 6 страниц занимают 8775 байт памяти
1 страница занимает 8775/6 = 1462.5 байт
На 1 строке 1462.5 / 30 = 48.75 байт
По формуле log2(64) = 6 бит уходит на кодировку 1 символа
48.75/6 = 8.125 байт
8.125*8 = 65 бит.
Принтер, колонки, клавиатура, мышь, сканер, монитор и т.д
1. Сила двигателя 2. Сила трения встречного воздушного потока 3.уровень горизонта 4. Коэффициент трения колес с дорожным покрытием 5. гравитация планеты.
Верно, каждый знак=1 разряду двоичного (например) кода