Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
8
Var x,n: real; Begin Write(‘введите значение x=’); Readln(x); n:=1*2+2*3*4+3*4*5*6+...+x*(x+1)*(x+2)...2x Writeln(‘n=’); End.
run
|
edit
|
history
|
help
0
P170808A
звёздное небо с подсчётом двойных звёзд
Looping (odd no.)
1
uuu
Banking
Zad 3 b
444555666
AreaTriangulo.pas
звёздное небо и подсчёт кратных звёзд