Var A,Min,N:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 7 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
Каждого претендента можно закодировать последовательностью из 7 битов, так как всего таких последовательностей 2^7=128, что не меньше, чем количество претендентов.
Так как сообщение о выбранных учениках содержит 105 бит информации, то всего выбранных учеников 105/7=15
Program Sample;
const
n = 4;
var
i, maxValue, inpValue: integer;
begin
maxValue := low(maxValue);
for i := 1 to n do
begin
Write('Введите число: ');
ReadLn(inpValue);
if maxValue < inpValue then
maxValue := inpValue;
end;
WriteLn('Максимальное из ', n, ' чисел равно ', maxValue);
end.
1) Не трогать провода
2) не входить без разрешения
3) не входить с едой и напитками
4) не приносить посторонние предметы
5) не приходить с мокрыми руками
6) не стоять от компьютера сбоку
7) не вставать без разрегения
8) садится туда, кула скажет учитель