<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>
Ответ:
var a,b,k:integer;
begin
readln(a,b);
for k:=a to b do if(k mod 2=1) then write(k, ' ');
end.
Объяснение:
Надеюсь будет понятно!!!
Думаю, что так:
элЕКТРичество, ЕКТР = трек
ЭЛЕКТРИчество = электрик
элекТРиЧЕСТВО = творчество
эЛЕКТРичествО = лектор
Если без форм (<FORM>), то так:
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Площадь трапеции</H1>
<SCRIPT>
var a = prompt('Укажите длину','');
var b = prompt('Укажите ширину','');
var h = prompt('Укажите высоту','');
alert ('Площадь трапеции будет равна '+(+a + +b)/2*h);
</SCRIPT>
</BODY>
</HTML>