X,n:integer;

begin

read(x,n);

asm

mov cx,n

mov ax,1

jcxz @end

@for:

imul x

loop @for

@end: mov x,ax

end;

writeln('s=',x);

readln;

readln;

end.

Задание. Написать программу на языке Паскаль с использованием Ассемблерной вставки для произведения вычислений.

1. Найти сумму: S=1+2 +3 +4 +…+n

2. Вычислить произведение: S=(n-1)(n-2)(n-3)…(n-(n-1)).

3. Дано целое число n. Найти сумму цифр числа n.

4. Дано целое n. Сколько цифр в числе n?

5. Наитии наибольший делитель числа x не считая само число.