Курсовая работа: Численные методы Программа-калькулятор на Pascal
end
else
begin
if i>k then {проверка на делитель>остатка}
begin
write ('введите размерность=');
readln (R);
ifR<=0 then
begin
writeln ('некорректная размерность ');
readln;
end
else begin
if R=1 then
begin a: =1; b: =9; end
else begin
a: =pow (10, (R-1)); {инициализация верх и нижн границ}
b: =pow (10,R);
b: =b-1;
end;
end;
ifb<ithen{проверка на делимое>делителя}
writeln ('делиоме не может быть < делителя ')
else
begin
SUM: =0; {обнуление сумы кол-ва эл-ов}
for D: = a to b do
begin
if (Dmodi) =kthen{проверка эл-ов на условие}