1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

Тема в разделе "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. kuric
    Ответов:
    0
    Просмотров:
    297
  2. msfconsole
    Ответов:
    0
    Просмотров:
    389
  3. slavkan777
    Ответов:
    3
    Просмотров:
    925
  4. serauto79
    Ответов:
    3
    Просмотров:
    1.006
  5. Даниил
    Ответов:
    0
    Просмотров:
    978

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