Program isperfectnumber(input,output); var i, n, s: integer; begin write('n = '); readln(n); s : = 0; for i : = 1 to n do if n mod i = 0 then s : = s + i ; writeln if s - n = n then write('äà') else write('íåò') writeln end. , почему программа не правильная?

yan2005byp06ne2    2   26.09.2019 22:01    0