Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal
делителя и остатка на отриц-сть}
begin
write ('делитель или остаток не могут быть<0 ');
end
else
begin
if i>k then {проверка на делитель>остатка}
begin
write ('введите размерность=');
readln(R);
if R<=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;
if b<i then {проверка на делимое>делителя}
writeln ('делиоме не может быть < делителя ')
else
begin
SUM:=0; {обнуление сумы кол-ва эл-ов}