- 35 名前：保守 mailto:sage [2006/09/18(月) 12:46:03 ]
- //0から100までの合計
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
sum: Longint;
begin
asm
mov eax, 0
mov ecx, 100
@loop1:
add eax, ecx
loop @loop1
mov sum, eax
end;
Writeln(format('合計は%dです', [sum]));
readln
end.
