var x,y:integer;beginwrite('vvedite x:');readln(x);Y:=(3-x)*(6-x)*(9-x)*(12-x)*(15-x)*(18-x)*(21-x);writeln(y);end.
Восопользуся Algo на паскале или Delghi 6.0
var x,y:integer;
begin
write('vvedite x:');
readln(x);
Y:=(3-x)*(6-x)*(9-x)*(12-x)*(15-x)*(18-x)*(21-x);
writeln(y);
end.
Восопользуся Algo на паскале или Delghi 6.0