Program sover;
uses crt;
var a, i, s: integer;
begin
 clrscr;
 write('Введите целое число а: ');
 readln(a);
 s:=0;
 for i:=1 to a div 2 do
 if a mod i=0 then
 begin
 s:=s+i;
 write('+', i);
 end;
 if s=a then writeln(' Число ',a, ' совершенное')
 else writeln(' Число ', a, ' не совершенное');
 readln;
end.


2012-06-15 • Просмотров [ 3156 ]