1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

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

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

Тема в разделе "Вопросы новичков и не только", создана пользователем -, 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.
     
Загрузка...

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