Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Lunohod-2
program Lunohod; const move = 8; const rotate = 4; const prepare = 2; const test = 1; function receive ( var s : integer ) : integer; begin readln (s); if s <> 0 then receive := s else receive := 0 end; var signal : integer; begin while receive ( signal ) <> 0 do begin if signal = move then writeln ('MOVE') // здесь будет функция движения. else if signal = rotate then writeln ('ROTATE') // здесь будет функция вращения else if signal = prepare then writeln ('PREPARE') // здесь будет функция подготовки приборов else if signal = test then writeln ('TEST') // здесь будет функция экперимента else writeln ('ERROR'); end; end.
run
|
edit
|
history
|
help
0
Huong11a2@
[DE/GER] Caesar Chiffre (Entschlüsseln)
Урок 4 задача 5
проверка числа на отсутствие возрастающих и убывающих четвёрок
test19
LogOp2
Озвучка
08 Ariketa REPEAT
Linha d'água de uma caixa retangular
test 1 avant que theo huart etaigne mon ordi