Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
nomer8
var a,b,c,d:int64; r:real; begin assign(input,'input.txt'); assign(output,'output.txt'); reset(input); rewrite(output); read(a); r:=sqrt(a); b:=1; c := 1; repeat b:=b+1; if a mod b=0 then begin c := b; break; end; until b>r; d := a div c; if c = 1 then d := c; writeln (d,' ',a - d); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
VINICIUS ELIAS SILVEIRA 600625519
nomer3
Banyaknya huruf vokal
LETICIA VIEIRA TEIXEIRA 600618795
Task1-3
24/10/17
Андреева Урок 6 задача 8 (1531)
Удвоенное число с одинаковыми цифрами
abcd...
Banking
Please log in to post a comment.