Курсовая работа: Численные методы Программа-калькулятор на Pascal
end;
begin
i: =1; while (b [i] <>0) and (i<=n) do inc (i);
if i<>n+1 then writeln ('НОК не сущ-ет')
else begin
d: =1;
for i: =2 to maxa do
begin
maxj: =0;
for l: =1 to n do
begin
j: =0;
while (b [l] mod i=0) do
begin
b [l]: =b [l] div i;
inc (j);
end;
if (j>maxj) then maxj: =j;
end;
if (maxj<>0) then for l: =1 to maxj do d: =d*i;
end;
writeln ('НОК=',d);
end;
end;
end;
writeln ('Повторить? (Y/N) ');
q: =ReadKey;
until q in ['N','n'] ;
clrscr;