Ребятушки!!! пожалуйста!!! нужна программа в паскале которая будет решать эту штуку... и...

Question

Ребятушки!!! пожалуйста!!! нужна программа в паскале которая будет решать эту штуку... и ОБЯЗАТЕЛЬНО БЛОК СХЕМА-АЛГОРИТМ

---

Answer 1

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.

Comments

а блок - схему можно?