用汇编语言编程，计算1到20之间的奇数和

Question

如题所述

Answer 1

data segment
sum1 dw 0
sum2 dw 0
data ends
stack segment
s db 1000 dup( 0 )
stack ends
code segment
assume cs:code, ds:data, ss:stack
start:
mov ax, data
mov ds, ax

mov ax, 0
mov cx, 0 ;偶数部分
loop1:
add ax, cx
inc cx
inc cx
cmp cx, 21
jl loop1
mov sum1, ax

mov ax, 0
mov cx, 1 ;奇数部分
loop2:
add ax, cx
inc cx
inc cx
cmp cx, 20
jl loop2
mov sum2, ax

mov ah, 4ch
int 21h
code ends
end start

Answer 2

pascal行吗？
var i,s:integer;
begin
s:=0;
for i:=1 to 20 do
if i mod 2<>0 then
s:=s+i;
writeln(s);
end.
啊，看错了，以为是编程语言，sorry本回答被网友采纳