16=2 в 4 степени, значит в сообщении о белом кар. -4 бита
24 округлям до 32 (в бол. сторону)=5 бит
Var
c,n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
write('Write c: '); readln(c);
k:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>c
then inc(k);
end;
writeln(k);
readln;
readln
end.
Задание №1
var
h, m: integer;
begin
<span> write(</span>'Введите часы:');
readln(h);
<span> write(</span>'Введите минуты:');
readln(m);
writeln('Время в секундах:', h * 3600 + m * 60);
end.
<span>100011 во второй СС = 35 в обычном виде
</span><span>111100 во второй СС = 60 % в обычном виде
35 = 100%
60% от 35 = 21
Ответ: 21 ученик учится </span><span>на “хорошо” и “отлично”</span>