Question

Паскаль!найти произведение чисел от 1 до 10 и увеличить его в 5 раз

Answer 1

var
   i,mult:integer;
Begin
   mult:=1;
   for i:=1 to 10 do
      mult:= mult*i;
   write(mult*5);
End.
Результатом будет: 18144000