Дано натуральное число....

Тема в разделе "Информатика", создана пользователем Галстук с чувством юмора 8), 1 янв 2010.

  1. Галстук с чувством юмора 8)

    Галстук с чувством юмора 8) New Member

    Дано натуральное число. Найти сумму его четных делителейPascal
     
    Галстук с чувством юмора 8), 1 янв 2010
    #1
  2. residentishe

    residentishe New Member

    For i:=1 to n do begin
    if ((n mod i = 0) and (i mod 2=0)) then sum:=sum+1;
    end;
     
    residentishe, 1 янв 2010
    #2

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

Наша группа