Run Code
|
API
|
Code Wall
|
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
zad27-notoptimal
66
calcular_sumatoria_N
НОД через делители чисел
Квартира Задача 6.14 учебн. Грицанова
Banking
Pascal triangle
IT101 - W4_1
2
matriza