Question

[Nguyễn Chơn Nhân]

TONGUOC - TỔNG ƯỚC Dữ liệu vào: standard input Dữ liệu ra: standard output Giới hạn thời gian: 1.0 giây Giới hạn bộ nhớ: 128 megabyte Đăng bởi: phuleethanh

Tính tổng các ước của số nguyên dương n (n ≤ 10^12).

Dữ liệu nhập:

- Dòng đầu chứa số bộ test.

- Các dòng sau, mỗi dòng chứa 1 số nguyên dương n (n ≤ 10^12).

Kết quả:

- Mỗi test in trên 1 dòng chứa 1 số nguyên là tổng các ước của test tương ứng.

Ví dụ

• input 3
  92
  29
  82 output 92 co 6 uoc. Tong uoc la: 168
  29 co 2 uoc. Tong uoc la: 30
  82 co 4 uoc. Tong uoc la: 126

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;
const fi='standard.inp';
fo='standard.out';
var f1,f2:text;
a:array[1..100]of integer;
i,j,n,dem,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
readln(f1,a[i]);
{--------------------xu-ly------------------}
for i:=1 to n do
begin
write(f2,a[i],' co so uoc la: ');
dem:=0;
t:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then
begin
dem:=dem+1;
t:=t+j;
end;
writeln(f2,dem.,' tong uoc la: ',t);
end;
close(f1);
close(f2);
readln;
end.

Answer 2

[Nguyễn Chơn Nhân]

làm như vầy nó chấm sai đó nha