Nhập vào 1 số nguyên in ra các ước của nó và tổng các ước Free pascal nha 27/08/2021 Bởi Vivian Nhập vào 1 số nguyên in ra các ước của nó và tổng các ước Free pascal nha
uses crt; var n , i , sum : longint; begin clrscr; readln(n); sum = 0; for i := 1 to n do begin if (n mod i == 0) then begin write(i);write(‘ ‘); sum = sum + i; end; end; writeln; writeln(sum); end. Bình luận
#include<stdio.h> int main() { int n, i; printf(“Nhap n: “); scanf(“%d”, &n); for(i=1; i<=n; i++) { if(n%i==0) printf(“\nUoc so cua n la %d”,i); Bình luận
uses crt;
var n , i , sum : longint;
begin
clrscr;
readln(n);
sum = 0;
for i := 1 to n do
begin
if (n mod i == 0) then
begin
write(i);write(‘ ‘);
sum = sum + i;
end;
end;
writeln;
writeln(sum);
end.
#include<stdio.h>
int main() {
int n, i;
printf(“Nhap n: “);
scanf(“%d”, &n);
for(i=1; i<=n; i++) {
if(n%i==0)
printf(“\nUoc so cua n la %d”,i);