, надо расписать, Дано: и решение ( ну как обычно в школе), только решите честно. Вес 1 буквы = 5 бит
Задание 1
- Сколько байт содержит слово килобайт?
- Сколько байт содержит слово «байт»?
- Посчитайте информационный объем сообщения - Вася, привет!
- Посчитайте информационный объем сообщения «Маша, ты где?»
- Посчитайте информационный объем своей фамилии, имя, отчества
(Потехина Ульяна Владимировна, по отдельности и всего)
- Посчитайте информационный объем названия своей будущей специальности.
(Право и организация социального обеспечения)

Задание 2
Каждая страница учебника содержит чуть меньше 40 строк, в каждой строке –
примерно 60 символов. Учебник состоит из 176 страниц. Определите
информационный объем учебника. ответ запишите: в байтах, Кбайт, Мбайт.

Задание 3
- Каким будет объем информации в тексте, состоящий из 64 символов.
- Каким будет объем информации в тексте, состоящий из 100 символов.

Задание 4
Сколько символов нужно будет набрать в тексте на компьютере, чтобы его
информационный объем был равен 2400 байт?

1. Современный вариант (так можно писать):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
  var n:=10;
  var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
  var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
  var x:=a.Zip(b,(p,q)->p*q); Print('X:'); x.Println;
  Writeln('min(X)=',x.Min)
end.

Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250

2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
  n=10;
var
  a,b,x:array[1..n] of integer;
  i,min:integer;
begin
  Randomize;
  Write('A: ');
  for i:=1 to n do begin
    a[i]:=Random(99)+1; Write(a[i],' ')
    end;
  Writeln;
  Write('B: ');
  for i:=1 to n do begin
    b[i]:=Random(99)+1; Write(b[i],' ')
    end;
  Writeln;
  Write('X: ');
  min:=100*100; // больше максимального
  for i:=1 to n do begin
    x[i]:=a[i]*b[i]; Write(x[i],' ');
    if min>x[i] then min:=x[i]
    end;
  Writeln;
  Writeln('min(X)=',min)
end.

Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513

#include <iostream>

typedef long long   ll;

using namespace std;

bool ll_is_valid(ll t, ll N, ll x, ll y)

{

return  t / x + (t - x) / y >= N;

}

ll f(ll N, ll x, ll y)

{

   ll R = 1;

   while (!ll_is_valid(R,N,x,y)) R *= 2;

ll L = R / 2;

while(R - L > 1)

{

 ll M   =   (L + R) / 2;

 

 if (!ll_is_valid(M,N,x,y)) {L = M;}

 else {R = M;}

}

return  R;

}

int  main()

{

ll N,x,y;

cin >> N >> x >> y;

if(x > y) swap( x, y );  

cout << f(N, x, y) <<  std::endl;

}