135.7
()()()()()()()()()
есть еще один сайт чтобы вичислять
//Pascal ABC.NET v3.1 сборка 1172
Var
n,i,s,max,maxn:integer;
begin
n:=1;
max:=-1;
while n<>0 do
begin
readln(n);
for i:=1 to n div 2 do
if n mod i=0 then s:=s+i;
if max<s then
begin
max:=s;
maxn:=n;
end;
s:=0;
end;
writeln(maxn);
end.
Пример ввода:
23
45
67
12
23
0
Пример вывода:
45
Ну а чего тут писать то... как бы ты отняла 153 от 875 ?
875-153 ..: в позиционной системе счисления(которой является десятичная система_то есть от позиции зависит значение числа...) алгоритм таков..: 1) отнимаем единицы _если единиц не хватает то занимаем у десятков(10 единиц занимаем)... отнимаем 2) отнимаем десятки..если десятков не хватает занимаем десятки у тысяч (10 сотен занимаем) ... и так далее в зависимости от того на сколько длинные числа...
вообще говоря десятичную системы проходят на всем курсе математики... почему вы не знаете алгоритм _как вычесть из одного числа другое _это очень странно...а как сдачу считать в магазине?)