Question

Помогите пожалуйста!! Это СРОЧНО!!!
Lazarus

Answer 1

Ответ:

1.

var

a,b,i,s:integer;

begin

writeln('Введите A:');

readln(a);

writeln('Введите B:');

readln(b);

s:=1;

for i:=a to b do

s:=s*i;

writeln('произведение всех целых чисел от A до B включительно:', s);

end.