Дано натуральное число. Найти все его делители и их сумму

all your

Дано натуральное число. Найти все его делители и их сумму
12 ответов

all your

uses crt;
var
n,i,sum:integer;
begin clrscr;
write('vvedite chislo: ');
read(n);
sum:=0;
writeln('deliteli: ');
for i:=1 to 999 do
if (n mod i)=0 then
 begin
  write(i,'  ');
  sum:=sum+i;
 end;
writeln;
writeln('summa vseh deliteley=',sum);
readkey;
end.


all your

sum:=0;
for i:=1 to abs(a) do
if a mod i=0 then sum:=sum+i;


all your

Uses
 CRT;
var
 i,n:integer;
 sum:longint;
Begin
write('Ââåäèòå ÷èñëî: ');
readln(n);
sum:=0;
for i:=1 to n do
 if n mod i=0 then
 begin
  write(i:3);
  sum:=sum+i;
 end;
writeln;
writeln('SUM:=',sum);
Readln
End.


all your

999
?????


all your

SuPeR XaKer, согласна...напрасно, до n должно быть


all your

var n, i, sum: integer;
begin 
readln(n);
sum := n;
writeln('Dividers: ');
for i := 1 to n div 2 do
  if (n mod i) = 0 then begin
    write(i,'  ');
    sum := sum + i;
  end;
writeln(n);
writeln('Sum - ', sum);
readln
end.


all your

iama а само число типа делителем не является да?


all your

SuPeR XaKer,
sum := n;
writeln(n);
гм... это, вроде, не спроста?


all your

program delitel;
var i,n:integer;
sum:real;
begin
while i>n do
readln(n);
sum:=0;
inc(i);
if n mod i=0 then begin
sum:=sum+i;
writeln('Сумма делителей:=');
readln;
end;
end.


all your

гм... это, вроде, не спроста?
ну до этого там вроди sum:=0; и n div 2+1 было
кстати, править тут можно только до первого чужого поста после своего


all your

SuPeR XaKer, было, увидел, протер глаза, и исправил. кстати, править тут можно только до первого чужого поста после своего


all your

Program My5_222;
 Uses Crt;
 Var n,i,sum:LongInt;
 Begin
  ClrScr;
  WriteLn('Найти все делители и суммы делителей числа n.');
  WriteLn('Введите число n');
  ReadLn(n);
  sum:=0;
  For i:=1 To n Do
  Begin
   If n Mod i =0 Then
    Begin
     WriteLn('Делитель: ',i);
     sum:=sum+i;
    End;
  End;
  WriteLn('Сумма делителей числа ',n,' равна ',sum);
  WriteLn('Для для выхода из программы нажмите <Enter...>');
  ReadLn;
 End.