Ước và tổng ước - QBOJ: Quảng Bình Online Judge

Ước và tổng ước

Gửi bài giải

Danh sách bài nộp

Bài nộp tốt nhất

Điểm: 8,00 (OI)

Giới hạn thời gian: 1.0s

Giới hạn bộ nhớ: 256M

Input: stdin

Output: stdout

Dạng bài

Ngôn ngữ cho phép

C, C++, Java, ~~Kotlin~~, Pascal, PyPy, Python, Scratch

Cho số nguyên dương ~N~ (~N \le 2.10^9~).

Yêu cầu: Đếm số lượng ước và tổng các ước của ~N~.

Dữ liệu vào:

Dòng 1. Ghi số nguyên dương ~N~.

Dữ liệu ra:

Dòng 1. Chứa hai số nguyên lần lượt là số lượng ước và tổng các ước của ~N~.

Example

Input:

Output:

4 18

Bình luận

Hãy đọc nội quy trước khi bình luận.

0

kemcoi1234 đã bình luận lúc 22, Tháng 9, 2024, 3:00

1

minhnn0305 đã bình luận lúc 22, Tháng 9, 2024, 13:34

???

-1

OverPower đã bình luận lúc 6, Tháng 1, 2024, 13:12

Sbidi dom dom no no

-8

aadmin đã bình luận lúc 29, Tháng 11, 2023, 12:50

thay la admin nha

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-5

EvolutionOfLearning đã bình luận lúc 1, Tháng 12, 2023, 4:05

skibidi dop dop yes yes

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-9

top1phiphai đã bình luận lúc 26, Tháng 11, 2023, 9:41

Skibidi dop dop ya ya

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-6

EvolutionOfLearning đã bình luận lúc 28, Tháng 11, 2023, 3:57

skibidi dop dop yes yes

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-11

Inukani đã bình luận lúc 26, Tháng 11, 2023, 5:04

:D

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-19

phanhuusong2010 đã bình luận lúc 26, Tháng 11, 2023, 2:52

uses crt; Var d,s,n,i:longint; Begin clrscr; write('Nhap n : ');readln(n); d:=2; s:=1+n; if n=1 then write(1,'',1) else begin For i:=2 to trunc(sqrt(n)) do If n mod i=0 then If n div i <> i then begin s:=s+i+n div i ; d:=d+2; end; else begin s:=s+i; d:=d+1; end; writeln(d, ' ',s); readln End.

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-13

nhatminh đã bình luận lúc 26, Tháng 11, 2023, 5:56

var s,i,n,d:int64; f:text; begin readln(n); d:=0; s:=0; i:=1; while sqr(i)<=n do begin if n mod i=0 then begin d:=d+2; s:=s+i; if sqr(i)=n then dec(d); if sqr(i)<>n then s:= s + n div i; end; inc(i); end; write(d,' ',s); end.

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.

-9

EvolutionOfLearning đã bình luận lúc 28, Tháng 11, 2023, 3:59

var n,i:longint;c:byte;sum:int64;begin read(n);for i:=2 to trunc(sqrt(n)) do if n mod i=0 then if n div i<>i then begin inc(c,2);sum:=sum+i+n div i;end else begin inc(c);sum:=sum+i; end;if n<>1 then write(c+2,' ',sum+n+1) else write(1,' ',1); end.

Bình luận này đã bị ẩn vì có quá nhiều phản ứng tiêu cực. Nhấn để xem.