Помогите, пожалуйста, с 11 заданием, буду очень благодарна ♥️ (pascal)
Answers & Comments
27Urij27
Var a,x,y,z:integer; Begin Write('Введите число: '); Readln(a); For x:=1 to a-1 do Begin y:=1; z:=0; While y<x do If x mod y = 0 then Begin z:=z+y; y:=y+1; end else y:=y+1; If z=x then Writeln(x); end; End.
Answers & Comments
Begin
Write('Введите число: ');
Readln(a);
For x:=1 to a-1 do Begin
y:=1;
z:=0;
While y<x do If x mod y = 0 then Begin
z:=z+y;
y:=y+1;
end
else y:=y+1;
If z=x then Writeln(x);
end;
End.