const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
Стол - 4 символа
1 символ - 1 байт
1 байт = 8 бит
4*8 = 32 бит
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
1101111 (в 2с/с) = 64+32+8+4+2+1=111 (в 10с/с)
111 (в 2с/с) = 4+2+1 = 7 (в 10 с/с)
Ответ: 7