比赛 寒假归来,刮刮油 评测结果 AAAAAAAAAA
题目名称 字符串加密 最终得分 100
用户昵称 Twist Fate 运行时间 0.038 s
代码语言 Pascal 内存使用 0.15 MiB
提交时间 2016-02-25 19:48:09
显示代码纯文本
program chen;
var
	a:array[1..8] of longint;
	s:char;
	b,i:longint;
procedure er(m:longint);
var
	i,j,x:longint;
begin
	x:=m;
	for i:=1 to 8 do 	begin
		a[i]:=x mod 2;
		x:=x div 2;
	end;
end;
begin
	assign(input,'strpassword.in');	reset(input);
	assign(output,'strpassword.out');	rewrite(output);
	while not eoln do begin
		fillchar(a,sizeof(a),0);
		read(s);
		b:=ord(s);
		er(b);
		for i:=8 downto 1 do 
			write(a[i]);
	end;
	close(input);	close(output);
end.