Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Всего - 779 спортсменов
Прошли - 280 спортсменов
Определим минимальную кодировку.
Это делается так:
i - это кол-во бит.
Например
тут i = 2, этого хватило бы для 3 спортсменов.
то есть 9 бит хватило бы для 511 спортсменов. А нам надо <span>779. Значит увеличиваем кол-во бит
</span><span>
Этого хватило бы для 1023 спортсменов. Нам хватает.
</span>
Значит минимальное кол-во бит для кодирования - 10
У нас прошли 280, а каждая запись кодируется 10 битами, значит умножив 280 на 10, мы найдём объём всех записей.
280 * 10 = 2 800 бит
Ответ: 2 <span>
800 бит или 350 байт.</span>
Слуховая информация органами уши, вкусовая органами язык, осязательная органами кожа, обонятельная органами нос
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6