code segment
assume cs:codestart:
mov cx,1
mov ax,2
next:
cmp cx,200
jge exit
inc al
mov bl,al
dec bl
mul bl
add cx,ax
mov ax,0
mov al,bl
inc al
jmp next
exit:
mov al,bl AAM
mov dl,ah
mov bl,al
add dl,30h
mov ah,2
int 21h
mov dl,bl
add dl,30h
mov ah,2
int 21h
mov ah,4ch
int 21h
code ends
end start
program sum;
var s,i:longint;
begin
s:=1;
i:=2;
while i*(i+1)<200 do
begin
s:=s+i*(i+1);
inc(i);
end;
writeln(s);
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024