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

t:=t*(powers[i]+1); {кол-во делителей}

if i <> n then write(' * ');

end;

writeln;

writeln('кол-во множителей: tau(num)=',t);

writeln('сумма множителей: sigma(num)=',k);

writeln('Повторить ?(Y/N)');

q:=ReadKey;

until q in ['N','n'];

clrscr;

end;{Factor}

{----------------------------------------}

procedure NodNok;

type TArray=array [1..200] of integer;

var a,b:TArray;

i,l,j,maxa,minj,maxj:longint;

k,d:longint;

n:integer;

q:char;

begin

repeat

clrscr;

writeln('введите ко-во чисел для нахождения НОД и НОК');

readln(n);

writeln('введите ',n,' чисел: ');

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

else begin

readln(a[1]);

b[1]:=a[1];