Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal

b:=vec[i];

for j:=1 to abs(b) do

begin

if (b mod j)=0 then

begin

vecb[k]:=j;

k:=k+1;

procedure AntiExp;

var s: array [1..100] of integer;

a,b,i,n,t:integer;

q:char;

begin

repeat

writeln('введите кол-во эл-ов цепной дроби=');

read(n);

if n<=0 then writeln(‘кол-во эл-ов не может быть<=0’)

else begin

writeln('введите значения этих эл-ов=');

for i:=1 to n do

read(s[i]);

a:=1;b:=s[n];

for i:= n downto 2 do

begin

t:=s[i-1]*b+a;

a:=b;

b:=t;

end;

writeln;

writeln(b,'/',a);