Question

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

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