说明：ptop 是fpc 中自带的代码格式工具。2、安装vs code。

首先想到的是 当 n mod k 0 就n--,找到最大的能被 k整除的数就可以了。后面在一本通启蒙中可以通过，但是在Hydro中不能通过，显示超时。A同学认为自己的幸运数是不超过N𝑁的非负整数里能被K𝐾整除的最大的数，你能帮他的算幸运数吗?输入—行，包含两个整数N𝑁,K𝐾(1≤N,K≤2×1091≤𝑁,𝐾≤2×109)。超时后想了一下应该有更快的办法，应该就是数学上，的问题，更新算法：耗时变成1ms。输出—行，包含一个整数，表示幸运数。

现在给出一个时间，单位是秒，要求按照电子表格式输出，输出保证不会超过 2424 小时。3067：【例13.2】 电子表。把时间转化成电子表格式输出。电子表上的时间显示方法形如。

【代码】【无标题】

【代码】Delphi 利用集合求大写字符与元音字符。

【代码】Delphi 函数的 out 形参。

【代码】Delphi 过程的传值调用 及函数的返回值。

【代码】Delphi 函数的传地址。

varbeginelseend;beginreadln;end.

varbeginbegina := b;b := t;end;Writeln(a);readln;end.

【代码】P108 Delphi 递归求阶乘。

属性]窗口中，选择[选项]页，下拉[当前代码页(C)],选择[437 (美国)]右击[Free Pascal]快捷图标，选[属性]Free Pascal的IDE界面乱码解决方法。

输出x, sin(x), cos(x), tan(x)的值。已知X=0，10， 20，180。第10行出现 给FOR 循环变量赋值i错误。

【代码】Formate函数的一般使用。

这个例子主要用到了btn的Hint 属性，Hint是提示的意思。

结合运行窗口，你输入1 2 3 4 这是一行ReadLn在读入时把这四个数当成一行，read(a,b)只读入了前两个数：1 2，就准备读下一行了，下一行输入3，再下一行输入2，所以输出1232；Read是逐个读取数据，不考虑换不换行。

【代码】Delphi IF语句的应用。