Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
Находим значение информационной емкости одного символа. N=2^i, подставляя значение в формулу, получаем N=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.
1) 120•50=6000 строк
2) 6000•37=222000 символов
Ответ: 222000 символов занимает электронная книга.
//PascalABC.NET 3.2 сборка 1318
Var
ar:array of integer;
i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
begin
readln(ar[i]);
if min>ar[i] then min:=ar[i];
end;
for i:=0 to n-1 do
if ar[i]=min then inc(k);
writeln(k);
end.
Пример ввода:
3
1
2
1
Пример вывода:
2
Если начать прогонять цикл, то первые элементы массива A будут равны:
-9
-8
-7
-6
-5
-4
-3
-2
-1
<span>0(Это 10 элемент)
</span>Дальше пойдут уже положительные элементы
Т.к. n в цикле положительный, то если мы умножим число на положительное, получим такое же положительное, а из отрицательного такое же отрицательное => 100-10=90
Ответ: 3