1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
достать дневник - посмотреть задание - закрыть дневник - достать тетрадь - достать учебник - открыть тетрадь - взять ручку - написать дату- решить задание - закрыть тетрадь - закрыть учебник - убрать на место
Подробнее - на Znanija.com - znanija.com/task/17576623#readmore
1)<em> iс = 1,5 Кб</em>
<em>K = 3072</em>
1,5 кб = 1,5 * 1024 = 1536 байт * 8 = 12 288 бит
N = 2 (в степени i)
<em>ic = i * K;</em> i = ic : K
i = 12 288 бит : 3072 = 4
N = 2 ( в 4 степени) = 16
Ответ: 16
2)<em> N = 256</em>
ic = i * K
N = 2 (в степени i)
i = 8 бит
ic = 30 * 70 * 5 * 8 бит = 84 000 бит
V = K * I, где
V - объем;
K - размер изображения;
I - количество бит на символ.
N = 2^i, где
N - количество цветов.
V = K * I .
I = V/K = (2*2^13) / (50 * 100) = 2^14 / (2 * 25 * 25 * 2^2) = 2^14 / (2^3 * 25^2) = 2^11 / 625 = 2048 / 625 = 3,2768 ~ 4 бита.
N = 2^i.
N = 2^4.
N = 16 цветов.