Если заполнять ячейки подряд, то надо ввести в 1-ю ячейку третьего столбца
"=B1/A1", затем потянуть за край, чтобы выделить нужное число строк, к которым применится формула.
1 процент считаем в 4 столбце. Пишем в первой ячейке =A1/100 и аналогичным образом растягиваем.
Все.
Маловато баллов за такую задачу, ну да ладно...
var n:integer; nashel:boolean;
begin
n:=0;
nashel:=false;
while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
writeln(n);
<span>end.
Ответ: 419</span>
4(каналы)*32(Гц)*1000(чтобы было -кило)*32(разрешение)*60(секунды)
Приведём все числа к ближайшим степеням двойки
2^2*2^5*2^10*2^5*2^6=2^28 бит
1 мб=2^23 бит
2^28 бит=2^5*2^23 бит=32*2^23 бит=32 мб
Так как приходилось добавлять к некоторым числам единицы, чобы они стали степенями двойки, ответ 31 мб.
Ответ: 31 мб
Const
<span> d: array [1..7] of string = </span>
<span> ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье'); </span>
<span>var </span>
<span> n: integer; </span>
<span>begin </span>
<span> write('Номер дня недели? '); </span>
<span> readln(n); </span>
<span> if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода'); </span>
<span>end.</span>