?? dealvale.pas
字號:
program deal_vale;
var n:integer;
begin
write('n=');readln(n);
while (n>9) and (n mod 10 <=(n div 10)mod 10) do n:=n div 10;
while (n>0) and (n mod 10>= (n div 10) mod 10) do n:=n div 10;
if n=0 then write('nr e deal-vale')
else write('nr nu e deal-vale');
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -