Постройте алгоритм, по которому определяется произведение всех 15 введенных чисел​. ! ​

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10