Question

Составьте блок-схему алгоритма и программу вычисления произведения целых чисел из промежутка [-6; 5). ЧЕРЕЗ Repeat​

Answer 1

Ответ:

var

j,p: integer;

begin

j:=-6;

p:=1;

While j<5 do begin

p:=p*j;

inc(j);

end;

Writeln(p);

readln;

end.