Question

Составьте программу, которая вычисляет произведение натуральных чисел от 5 до 10 и выводит на экран результат (ИСПОЛЬЗОВАТЬ ТОЛЬКО ЦИКЛ while)

Answer 1

Var
i, ans: integer;
Begin
i:= 5;
ans:= 1;
While i <= 10 do Begin
  ans:= i*ans;
  i:= i + 1;
  end;
Writeln(ans);
end.