关于Pascal语言的习题

来源：百度知道 编辑：UC知道 时间：2024/05/10 20:09:47
有一个两位数 加6后再把个位数字与十位数字互换得到一个新的两位数 这样加6后再互换共三次后 又得到了原来的两位数 求这样的两位数有哪几个?
ps. 用最简单的语言

var k,a,q,w,o:integer;
e:boolean;
begin
for k:=10 to 93 do begin
e:=true;
a:=k;
for o:=1 to 3 do begin
a:=a+6;
if a>99 then begin e:=false; break; end;
q:=a div 10;
w:=a mod 10;
a:=w*10+q;
if a<10 then begin e:=false; break; end;
end;
if e and (a=k) then writeln(k);
end;
end.

答案:19 52 85

穷举