Question

Составить программу вычисления значения следующего выражения
на языке программирования PascalABC

Answer 1

function f(x:integer):integer;

var i,n:integer;

begin

n:=1;

for i:=1 to x do

begin

n:=n*i;

end;

f:=n;

end;

var x,y:integer;

c:real;

begin

readln(x,y); //ввод x,y

c:=f(x)*((f(x-y))/f(y));

writeln(c);

end.

Answer 2

спасибо.

Answer 3

var i,j:integer;
begin
writeln('Симметричные 4х-значные числа');
readln(x);
begin
for i:=1 to 9 do
for j:=0 to 9 do
write('i=', i);
readln
end.

Answer 4

нужна блок схема

Answer 5

создавайте новое задание и может кто-нибудь ответит, я не любитель составлять блок схемы, в основном специализируюсь на написании программ.