Бабушке нужно скачать видео размером 25 Мбайт. Для этого придётся отправить в корзину какие-то старые ролики. Бабушка просит удалить как можно меньше видео Артёму выбрать видео, которые нужно удалить.
Подсказка
\frac{2 · 2^{10} \text{Кб}}{1024} = \frac{2 · 2^{10} \text{Кб}}{2^{10}}

2

«VID-201238291» (10 240 Кбайт)

«VID-201238321» (4096 Байт)

«VID-201238293» (5120 Кбайт)

«VID-201238391» (2048 Кбайт)

«VID-201238295» (1024 Кбайт)

«VID-201239013» (9216 Кбайт)

«VID-201239015» (512 Кбайт)

«VID-201239234» (61 440 Байт)

х = log₂ n;

х = log₂ 12 бит.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

не наю че за гамбас

пишу на паскале

var a: array[1..100] of integer;

i,n,k5,k4,k2: integer;

s: real;

begin

  read(n);

  for i : = 1 to n do begin

      writeln(' оценку учиника ',i);

      readln(a[i]);

      s: =s+a[i];

      if a[i]=5 then k5: =k5+1;

      if a[i]=4 then k4: =k4+1;

      if a[i]=2 then k2: =k2+1;

  end;

  writeln(s/n,k5,k4,k2);

end.