Question

написать программу с помощью трех циклов: даны два целых числа А и В (А<В). Найти произведение всех целых чисел чисел от А до В​

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadInteger2('Введите a, b:');

 var p: real;

 // 1

 p := 1;

 for var i := a to b do

   p *= i;

 Println(p);

 // 2

 var j := a;

 p := 1;

 while j <= b do

 begin

   p *= j;

   j += 1

 end;

 Println(p);

 // 3

 var k := a;

 p := 1;

 repeat

   p *= k;

   k += 1

 until k > b;

 Println(p)

end.