<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var h := ReadReal('Задайте шаг h:');
var (a, b) := (-3.0, 3.0);
for var i := 0 to Trunc((b - a) / h) do
begin
var d := a + i * h;
var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;
Writeln(d:18:15, k:24:15)
end
end.
Плагин-это расширение или дополнение возможностей
Это программа нужна чтобы копировать картину и текст тому подобное
вставить это программа для выставления
Var a:array [1..12] of integer;
<span>i,sum:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>randomize; </span>
<span>for i:=1 to 12 do begin </span>
<span>a[i]:=random(10,99); </span>
<span>if a[i] mod 2 =0 then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма четных чисел массива = ',sum); </span>
<span>end.</span>