Program n1;
const n=13;
var a: array [1..n] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
write('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i]*4>a[i]*a[i] then sum:=sum+a[i];
end;
writeln;
write('искомая сумма: ',sum);
end.
А)=СТЕПЕНЬ(A1;2)+4*(B1+51)
Б)=(2*B1+4*(A1+2))/(5*<span>СТЕПЕНЬ(B1;2)</span>+3)
1)Никогда не следует возвращаться туда, где был счастливым. - прид. места
2)Очнулся он, когда солнце стояло уже высоко. -прид .времени
3)Я вышел, чтобы освежиться--прид. цели
4)Дедушка пел так, как поет народ -- прид. образа действия
5)Если завтра будет такая же погода, то утром поеду в город -- прид. условия
Const eps=0.001;
var x,xi,an,s:real; i,f:integer;
begin
readln(x);
xi:=1; f:=1; i:=0;
an:=xi/f; s:=an;
while abs(an)>eps do
begin
i:=i+1;
f:=f*i;
xi:=xi*x;
an:=xi/f;
s:=s+an;
end;
writeln('s = ',s:6:4,' e^',x:0:1,' = ',exp(x):6:4);
end.
Пример:
0.9
<span>s = 2.4595 e^0.9 = 2.4596</span>