作业帮 > 综合 > 作业

四位16进制数转化为10进制 pascal

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/29 04:10:57
四位16进制数转化为10进制 pascal
帮我看看有哪些错的……
program ex2038;
var s:string;i,a1,a2,a3,a4,k,dec:integer;
begin
readln(s);
for i:=1 to 4 do
if (s[i]>='A')AND(S[I]='a')and(s[i]='0')and(s[i]
正确的程序如下:
program ex2038;
var s:string;i,a1,a2,a3,a4,k,dec:integer;
begin
readln(s);
for i:=1 to 4 do
begin //这里一定要加begin,不加就变成循环只有下面一条if语句
if (s[i]>='A')AND(S[I]='a')and(s[i]='0')and(s[i]