Данная команда используется, если команду(или несколько команд) нужно выполнить более 1 раза
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.
64=2^6 --> 6 бит для кодировки одного символа
128=2^7 --> 7 бит для кодировки одного символа
11*6=66 бит
11*7=77 бит
У жителей второй планеты сообщение из 11 символов несёт информацию на 11 бит больше, чем сообщение такой же длины жителей первой планеты
77-66=11 бит
Int- в паскале возвращает целую часть числа х
Ответ : 6