Обработка и хранение информации.
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function f(x:real):=3+x*(4+x*(5+x*6));
begin
var a:=-1.0;
var b:=0.0;
var eps:=1e-6;
var fa:=f(a);
var x,fx:real;
if abs(fa)<=eps then Writeln('x=',a,',y=',fa)
else begin
var fb:=f(b);
if abs(fb)<=eps then Writeln('x=',b,',y=',fb)
else
if fa*fb>0 then Writeln('На указанном интервале корней нет')
else
repeat
x:=(a + b)/2;
fx:=f(x);
if abs(fx)<=eps then Writeln('x=', x, ', y=', fx)
else
if fa*fx>0 then a:=x else b:=x;
until abs(fx)<=eps
end
end.
<u><em>Результат выполнения программы:</em></u>
x=-0.790308952331543, y=-6.74849237825015E-07
27) вычисляется сумма s=s+A[i], если A[n-i]-A[i] > A[i]
n=10 i=0 A[10]-A[0]>A[0] 100-0>0 - да s=0+0=0
n=10 i=1 A[9]-A[1]>A[1] 90-10>10 - да s=0+10=10
n=10 i=2 A[8]-A[2]>A[2] 80-20>20 -да s=10+20=30
n=10 i=3 A[7]-A[3]>A[3] 70-30>30 да s=30+30=60
n=10 i=4 A[6]-A[4]>A[4] 60 -40>40 нет
n=10 i=5 A[5]-A[5]>A{5} - нет
n=10 i=6 A[4]-A[6]>A[6] 50-60> 60 нет
........................................................ и т.д.
n=10 i=10 A[0]-A[10]>A[10] 0-100> 100 - нет
ответ 60
28) вычисляется s=s+A{i},если A[n-i]-A[i]<A[i] n=10
i=0 20-0<0 -нет
i=1 18-2<2 - нет
I=2 16-4<4 - НЕТ
i=3 14-6<6 - нет
i=4 12-8 <8 - ДА s=0+8=8
i=5 10-10<10 - да s=8+10=18
i=6 8-12<12 - да s=18+12=30
i=7 6-14<14 -да s=30+14=44
i=8 4-16 <16- да s=44+16=60
i=9 2-18< 18 -да s=60+18=78
i=10 0-20<20 - да s=78+20=98 ответ 98
var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.