Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Kim
//fpc 3.0.0 program van_kim; var n,x,m,t : integer; begin write('Hãy nhập một số: ');readln(x); if x >= 12 then if x mod 12 =0 then n:=1 else n:=(x mod 12) +1; if x >= -12 then if -x mod 12 = 0 then n:= -1 else n:=(-x mod 12) -1; if ((x<12) and (x>0)) then n:= 1 + x; if ((x>-12) and (x<0)) then begin n:= 1+x; m:=12+n; m:=(m mod 12=0); end; case x of 0: x:=1; -1: x:=2; -2: x:=3; -3: x:=4; -4: x:=5; -5: x:=6; -6: x:=7; -7: x:=8; -8: x:=9; -9: x:=10; -10: x:=11; -11: x:=12; end; writeln('Sau khi quay kim ',x,' thì kim sẽ vặn từ 1 đến ',n,'); readln end.
run
|
edit
|
history
|
help
0
факторизация 2019
arreglo suma1
practica 11 ejercicio 4
Prodavnica
Урок 2 задача не из учебника
nomer1
fixed vs scientific for double
Бассейн-8
sound
pi