Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Кумире. For8

For8. Даны два целых числа $A$ и $B$ ( $A < B$ ). Найти произведение всех целых чисел от $A$ до $B$ включительно.

Решение от Дмитрия:

алг For_8(арг цел A,B, рез цел P)
нач
 P:=1
 цел I
 нц для I от A до B
  P:=P*I
 кц
кон

алг For_8(арг цел A,B, рез цел P)

нач

P:=1

цел I

нц для I от A до B

P:=P*I

кц

кон

Другие задачи из раздела For можно посмотреть здесь.

➤