Нужна Помощь С Делфи

Тема в разделе "Pascal and Delphi", создана пользователем -, 12 июн 2012.

  1. Гость

    Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N.
    program 2;

    {$APPTYPE CONSOLE}

    uses SysUtils;

    var n,i,j,k,s:integer;
    begin
    write('vvedi n');
    readln(n);
    k:=0;//пока нет совершенных
    for i:=1 to n-1 do //проверяем от 1 до n-1
    begin
    s:=0;//сумма делителей
    for j:=1 to i div 2 do //от 1 до половины числа
    if i mod j=0 then s:=s+j;//если делитель, суммируем
    if s=i then //если сумма=числу
    begin
    write(i,' '); //выводим
    k:=1;//фиксируем что есть
    end;
    end;
    if k=0 then write('Sovershenyh net!');
    readln;
    end.
     
Загрузка...

Поделиться этой страницей