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

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

  1. Гость

    Репутация:
    0
    Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 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.
     
Загрузка...
Похожие Темы - Нужна Помощь Делфи
  1. OneDollar
    Ответов:
    2
    Просмотров:
    85
  2. Ola_ola
    Ответов:
    0
    Просмотров:
    47
  3. E-m@le
    Ответов:
    2
    Просмотров:
    105
  4. petiablack
    Ответов:
    0
    Просмотров:
    70
  5. kuric
    Ответов:
    0
    Просмотров:
    385

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