Question

составте программу вычисления произведения чисел от 1 до 10
1*2*3*4* ... *10

Answer 1

Program Task;
Var i: Integer;
    p: LongInt;
Begin
    p := 1;
    For i := 1 To 10 Do
        p := p * i;
    WriteLn('Результат: ', p);
    ReadLn;
End.

Answer 2

var i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr:=pr*i;
writeln(pr);
end.