Var
a, b: integer;
procedure Max(a, b: integer);
begin
if(a > b) then write(a)
else write(b);
end;
begin
read(a, b);
Max(a, b);
end.
Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
Целые положительные представляются в компьютере в формате с фиксированной запятой.
Отрицательные с помощью дополнительного кода.