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...
Đọc tiếp
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
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.
làm như vầy nó chấm sai đó nha