Question

найти произведение чисел от А до Б (Pascal*)​

Answer 1

Ответ:

uses crt;

var a,b,i,p: integer;

begin

clrscr;

p:=1;

write('A,B: ');

readln(a,b);

for i:=a to b do

p:=p*i;

writeln('Произведение = ',p);

readln;

end.