Если в верхней строчке не "-3,5", а просто 3,5, то тогда вот такая программа:
var
F:real;
x:integer;
begin
writeln(' x','F':6);
for x:=0 to 16 do
begin if x>=3.5 then F:=4*x*x+2*x-19
else F:=-2*x/(-4*x+1);
writeln(x:2,F:8:2);
end
<span>end.</span>
<span>var a,b,h,x,s:real; n:integer;
begin
a:=pi/3; b:=pi/2; n:=60;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
repeat
s:=s+(sin(x)+cos(2*x))/(2+cos(x));
x:=x+h;
until x>b-h/4;
s:=s*h;
writeln(x);
end<span>.
Результат:
</span><span> 1.575159649924877e+00</span></span>
Const n=5;
var c,a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do c[i]:=random(100);
for i:=1 to n do write(c[i]:4);
writeln;
for i:=1 to n doif (c[i] mod 2)=0 then a[i]:=c[i] {если элемент четный, то A(I)=C(I)2 возможно здесь лишняя 2,если нет,тогда допишите сами правильно}
else a[i]:=c[i]*2;for i:=1 to n do write(a[i]:4);
end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=10;
var a:=ArrRandom(n,1,99); a.Println;
var d:=100;
var i1,i2:integer;
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do begin
var dd:=abs(a[i]-a[j]);
if dd<d then begin d:=dd; i1:=i; i2:=j end
end;
Writeln('Элементы ',i1+1,', ',i2+1)
end.
<u>Пример</u>
47 55 18 58 16 77 43 95 13 86
Элементы 3, 5
Var
a,b,k:real;
begin
writeln ('Введите сколько требуется купить кг. яблок:');
readln(a);
writeln ('Введите цену за 1 кг. яблок:');
readln(b);
K:=a*b;
writeln('Цена купленных яблок составляет: ',k,' рублей.');
end.