Question

Написать программы для нахождения произведения
P=903*904*...*999 с помощью циклов :for, while, repeat ​

Answer 1

var i : integer;

p : longint;

BEGIN

p := 1;

for i := 903 to 999 do

 p *= i;

 

writeln(p);

//=========================

p := 1; i := 903;

while i <= 999 do begin

 p *= i;

 Inc(i);

end;

writeln(p);

//==========================

p := 1; i := 903;

 repeat

 p *= i;

 Inc(i);

Until i > 999;

writeln(p);

END.

Однако стоит отметить, что полученное произведение довольно большое, в следствии чего, оно не влезит ни в какой тип переменных.