PASCLA扑克牌问题有52张扑克牌，使它们全部正面朝上。从第2张牌开始，把凡是2的倍数位置上的牌翻成正面朝下，接着，从第3张牌开始，把凡是3的倍数位置上的牌正面朝上的翻成正面朝下

Question

PASCLA 扑克牌问题
有52张扑克牌，使它们全部正面朝上。从第2张牌开始，把凡是2的倍数位置上的牌翻成正面朝下，接着，从第3张牌开始，把凡是3 的倍数位置上的牌正面朝上的翻成正面朝下，正面朝下的翻成正面朝上，接着从第4张牌开始，把凡是4的倍数位置上的牌按此规律翻转。依次类推，直到第1张要翻的牌是第52张牌止。统计最后有几张牌正面朝上，并打印出它们的位置。

Answer 1

program p; var a,s,d:integer; z,:array [1..52] of integer; x:array [1..52] of boolean; begin for a:=1 to 52 do begin z[a]:=a; x[a]:=ture; for s:=2 to 52 do for d:=2 to 52 do if z[d] div s0...