Идёт ток к искре каторая нагривает чай
<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>
Имя файла ''Физика.doc.''
Program z1;
var st:string;
begin
writeln('Введите строку');
readln(st);
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);
end;
writeln(st);
readln;
end.
Program p1;
var a,b:integer;
i,n,x:integer;
begin
Writeln ('Введите к-во');
readln (n);
x:=0;
for i:=1 to n do
begin
Writeln ('Введите число:');
readln (a);
if a>=0 then
begin
if x=0 then b:=a;
if (x>0) and (a<b) then b:=a;
x:=x+1;
end;
end;
Writeln('Наименьшего положительного число: ',b);
<span>end.</span>