Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1
//fpc 3.0.0 program CALKYLATOR; var A:Integer; begin writeLn('Введите число: '); readLn(A); if A > 0 Then writeLn(A + 1) else if A < 0 Then writeLn(A - 2) else writeLn(10); end.
run
|
edit
|
history
|
help
0
Banking
SINHHOANVI
zad27-notoptimal
BubbleSor (slimmer)
Mat
zadanye 3 a
digits_count
For7
Для Лехи -1
Random Numbers