【Pascal】 求阶乘
环境:Lazarus IDE v 2.0.10 + Win 10
程序
program Factorial;
var
a, result, i : integer;
begin
write('Please enter an integer from 0 to 16: ');
readln(a);
if (a < 0) or (a > 16) then
writeln('Error')
else
begin
result := 1;
原创
2021-02-20 17:46:03 ·
171 阅读 ·
0 评论