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.
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
Результат отработки алгоритма:
A=2
B=2
C=9
D=3
1. На Америку движется два урагана, но мне кажется все жители в безопасности.
2. 1 килобайт (Кб) = 1024=2 в 10 степени байт
3. Молоко является источником кальция.