1) 10 х 15 см, - это 100 х 150 мм.
2) найдём общее количество точек в изображении: (100*50)*(150*50)=5000*7500=37500000.
3) для 16 цветов достаточно 4 бит, т.к. 16=2^4, поэтому: 37500000*4=150000000(бит) /8=18750000(Байт) /1024=18370,5469(Килобайт) /1024=17,8813835(Мегабайт).
Var
x:integer;
y:double;
begin
Readln(x);
y=2*(Sin(3*x)/Cos(3*x))-(Ln(Cos(x))/(Ln(1+Sqr(x));
Writeln(y);
end;
Вроде бы так
На питоне:
pr=1
i=0
while i<10:
a=int(input())
pr*=a
i+=1
с циклом for быстрее не забудь в конце поставить print
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('S=',a.Where(t->t.Between(51,59)).Sum)
end.
<u>Пример</u>
n= 17
55 34 53 95 59 99 90 58 61 15 53 98 84 39 85 54 78
S=332