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

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

clrscr;

end; {DelOstatok}

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

procedure Factor;

var

numb, powers: array [1..100] of longint;

c:longint;

n:longint;

n1,H:longint;

i:longint;

k,t: longint;

q:char;

begin

repeat

write('Введите число=');

readln(c);

if c<=0 then {проверка на корр числа}

begin

writeln('число должно быть>0');

readln;

exit;

end

else

{вывод мн-ва делителей}

begin

write('мн-во делителей: D(num)=');

for H:= 1 to c do

if c mod H=0 then