var
l,x,sum:real;
i:integer;
begin
write ('L = ');
readln(l);
write ('X = ');
readln(x);
i:=1;
sum:=0;
while i<=101 do
begin
sum:=sum+exp((x+i)*ln(l))/i;
i:=i+2;
end;
writeln ('Summa: ',sum);
readln;
end.
54 _7+x=320_5
39_10+x=85_10
x=85-39=46
46_10=144_6
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
1 мин 40 сек это 100 секунд
100*1939=193900 байт
350*2 байта=700 байт одна страница
193900/700=277
Здрасте Вика
давно не видились
ну можно для начала написать вобщем зачем может быть нужен комп,потом зачем он нужен на информатике именно тебе
ну и дальше самой придумать