Tính tổng các số không phải là ước của 1 số nguyên dương được nhập vào?

Question

maingocquynhnhu · Answer

Program iloveyou;

Uses crt;

Var n,i:integer;

S:longint;

Begin

Write (‘nhap so nguyen’);

Readln (n);

S:=0;

For i:=1 to n do if n mod i <> 0 then S:=S+i;

Writeln (‘Tong cac so do la’,S);

Readln;

End.

thubichdan · Answer

program tinhtong;

uses crt;

var n,i:integer;

s:longint;

begin

clrscr;

write(‘Nhap so: ‘); readln(n);

s:=0;

for i:=1 to n do

if n mod i<>0 then s:=s+i;

write(‘Tong cac so khong phai uoc cua ‘,n,’ la: ‘,s);

readln

end.