Question

Найти произведение натуральных чисел от F до 11 (F<11)
Составить программу.
Язык Pascal

Answer 1

var f,i,x: Integer;
begin
writeln('введите F:');
readln(f);
x:=1;
for i:=f to 10 do x:=i*x;
writeln('Вывод: ',x);
end.