I(объем)=1008. k(количество)=1008. найдем i выразив из основной формулы I=k*i; i=I/k; i=1. N(мощность)=2^i => N=2.
1.Возьми персик из пакета, открой воду, вымай персик, закрой воду, положи персик на тарелку.
2. Есть персики в пакете? Есть персики на тарелке?
3. Нет персиков в пакете? Нет персиков на тарелке?
Var a:array[1..100]of integer;
i,sum,n:integer;
begin
writeln("vvedite kol-vo elementov");
read(n);
sum:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
sum:=sum+a[i];
writeln("summa vseh elementov = ",sum);
<span>end.</span>
<span>Бант - рант - рана - раса - роса - коса</span>