Разработка и реализация программ с циклической структурой, страница 7

  sum3:=sum3-el;                                                        summa elementov ||>e = 13.63  kol-vo = 5

  k3:=k3+1;                                                                  summa elementov > e1 = -17.54 kol-vo = 2 

  end;

 end;

writeln('summa ',n,' elementov= ',sum1:0:2);

writeln('summa elementov ||>E= ',sum2:0:2,'  kol-vo= ',k2);

writeln('summa elementov  >E1= ',sum3:0:2,'  kol-vo= ',k3);

writeln;

if sum1=exp(-x*ln(2.7)) then writeln('sum1=finkcii')

else writeln('summa ',n,' elementov ne = zna4. funkcii ');

if sum2=exp(-x*ln(2.7)) then writeln('sum2=finkcii')

else writeln('summa elementov ||>E ne = zna4. funkcii');

if sum3=exp(-x*ln(2.7)) then writeln('sum3=finkcii')

else writeln('summa elementov  >E1 ne = zna4. funkcii');

readln;

end.